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PRODUCT CODE 
PRODUCT NAME 
RELEASE DATE 
nfllNTAINER: 
PUTHOR(S): 



IDENTIFICATION 

HAINDEC-l l-DNOUF-B-Lfl 
TRDP - XXDP TR79F MONITOR 
l-HflR-77 

DIAGNOSTIC ENGINEERING 
DIAGNOSTIC ENGINEERING 



COPYRIGHT (C) 1977 

DIGITAL EQUIPtlENT CORPORATION, NAYNARO, MASS. 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS ft COMMITfCNT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH A LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
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SEO 0002 



Bin 
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PHONY UFO BLOCK POINTERS 



TO BOOT ROUTINE. 

TO DIRECTORY ROUTINE 

TO ZERO ROUTINE 

TO DELETE ROUTINE 

TO aOSE ROUTINE 

TO ENTER ROUTINE 

TO LOKUP ROUTINE 

TO fiaOCRTE ROUTINE 

TO SERVICE ROUTINE (DRIVER). 

NUMBER INDEX 

ro COfflRND REGISTER 

TO WORD COUNT 

TO BUS ROORESS 

TO BLXK NUMBER 

TO CONNRND 

TO REPO COraiRNO 

TO WRITE COMMAND 

TO REQUESTED BLOCK COUNT 

TO 1ST DIR BLOCK POINTER. 

TO LAST BLOCK • RLLOCRTED. 

TO RSCII NAME IN ODB 

; MONITOR SIZE IS 4K 

I POINTER TO MONITOR CORE IMAGE. 



rB.Pii 



XXDP TR79F MONITOR H-11-DI10UF-B HflCYll 27(7323 



EQUATES 

00017S 
00017b 



000000 
16H002 
164000 
IbHOOH 
IbMOOe 



ftLT2 
fiLT3 



DDI 

01-f1AR-77 10:34 P«GE 1-2 



=175 
=l7b 



.SBTTL GLOBAL REFERENCE DEFINITIONS 

; EXTERNAL GLOBAL DEFINITIONS 

-GLOBL SETMTO 
.CLOBL CREUNO.CROHDR 



.fiSECT 

fITST 

MTCM 

NTUC 

NTBA 



=lb4002 
=lb4000 
rlb4004 
=lb400b 



S£Q 0003 
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EOl 
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000000 
000002 

oooonb 

00001& 



0000% 
OOOOSM 
0000b2 



000070 
000072 

00007b 
000102 

0001 IC 
000112 
0001 lb 
00012M 
000130 
00013M 
000142 
0001% 



00015M 
000 158 
OQ0lb2 
000170 
D0017M 
00017b 
000202 

000210 
000214 
000222 
00022b 
(300234 
00Q23b 



oooooc 

000240 
012700 
005001 
Ol|7gg 

005302 
000040 



I i I III 



000000 
000000 

nooooo 



000070 
000240 
01270b 

0047b7 
032737 

001007 
005037 
012737 
0047b7 
005037 
012737 
0047b7 
032737 



001454 
0OSO37 
012737 
0047b7 
005004 
010437 
012737 

005037 
012737 
0047b7 
032737 
001402 
000137 



040000 

OOOlbO 
00004C 



lb4002 
000021 
000132 
lb4002 
000005 
000114 
000020 



lb4002 
000005 
OOOObb 

lb400b 
177000 

lb4002 
000005 
000034 
000010 

001000 



,5BTTL ONCE ONLY BOOT LOADER 



03b00C 
000400 

03b070 

000000 000000 

000000 000000 

000000 OQOOOO 

000000 000000 



IS: 



.=0 
240 
NOV 
CLR 
NOV 

nove 

DEC 

BNE 

JMP 

.=40 

.i40RD 



t3b000,R0 

Rl 

•25b., R2 

(R1)+,(R0)* 

R2 

IS 

at3b070 

0,0,0,0,0,0,0,0,0,0.0,0 



RELOCATION ADDRESS 
INITIALIZE TO OLD ADDRESS 
SET COUNT OF TRANSFERS 
MOVE BYTE TO UPER CORE 
COUNT 

LOOP BACK IF NOT DONE 

JUMP TO BOOT LOAD SUB ROUT IN 



INIT: 



.=70 
NOP 
MOV 



; RESET PERIPHERALS 
•40000, SP llNITIftLIZE STACK POINTER 



; CHECK IF MTU READY AN6 AT LOAD ^OINT 



lb4002 

lb4000 

lb4000 
lb4002 

lb4000 

lb4004 

lb4000 
lL-1002 



ID 



JSR 
BIT 

;IF YES READ 
BNE 

RUND: CLR 
MOV 
JSR 

BURST: CLR 
MOV 
JSR 
BIT 

;I0 BURST IS 
THE TAPE HALTS 
BEG 
CLR 
MOV 
JSR 
CLR 
MOV 
MOV 

CLR 
MOV 
JSR 
BIT 
BEQ 
JMP 



PC.REflOY 
•H6.a«MTST 
BUR§T, IF NO 
BURST 
atMTST 
«21.a»MTCM 
PC.ftEADY 
3«flTST 
•5,a«HTCM 
PC.READY 
•2fi,a^MTST 
TESTED FOR, IF 



;TEST FOR DONE 

:TEST FOR LOAD POINT INDICATOR 
REUIND TAPE TO LOAD POINT 
; BRANCH IF a LOAD POINT 
CLEAR STATUS REG. 

iREUIND COriMAND 
;MAIT FOA DONE 
CLEAR STATUS REG. 

:READ COMMAND 

;DONE" 

:IDB BIT INDICATOR SET " 
PRESENT At BEGINNING OF TAPE 



NOT 



REED: 



TAPERR 
a»MTST 
•5,a^MTCM 

PC.READY 
R4 

R4.3«MTBA 
•-6l2.,a^MTUC 

a^MTST 

•5,S«MTCM 

PC.READY 

•ifl.aiMTST 

3S 

a^iooo 



; CLEAR STATUS REG. 
SET READ FUNCTION 
;UAIT FOR DONE 

SET INITIAL LOAD ADDRESS TO 0 

:R4 HOLDS INITIAL LOOP ADDRESS DURING DMA 
;SET BL06k SIZE TO READ 25b. (DECIMAL) 
CHARACTERS 



; CHECK IF END OF FILE MARK HAS BEEN READ 
;JUMP TO THE BEGIN OF TRDP PROG. 



: CHARACTERS HAVE BEEN TRANSFERRED FROM TAPE TO CORE, BEGIN TO 
•PACK THE CHARACTERS INTO UOROS. 



000242 012703 1"'7000 



3S: 



MOV 



«-512.,R3 



; COUNTER 



TRDP - XXDP TR79F MONITOR fl-ll-DflOUF-B fWCYil 27{73Z) 



DflOUFB 


PI ! 


ONCE ONLY BOOT LOflOER 


(2) 


0002% 


010405 




(c) 


0002SO 


112524 






0OQ2S2 


005205 






000254 


fX35203 








001374 






OlAiebO 


000746 












id) 








iS) 


0uj2&2 


1CK737 


164000 


ici 


OuOcbo 


100375 




\Ci 


□tJOc/U 


005737 


164000 






100005 




(2) 


00027b 


032737 


011000 164002 


(2) 








(2) 








.2^ 


000304 


QOlOOl 




(2) 


000306 


000000 




(2J 


000310 


000207 





PACK: 



READY: 



NOV 

novB 

INC 
INC 
BNE 
BR 



TSTB 

BPL 

TST 

BPL 

BIT 



BNE 

TflPERR: HALT 
RTN: RTS 



FOl 
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R4.R5 

(Rb)*, (R4)* 

R5 

R3 

PACK 
REED 



aiMTcn 

READY 

aiMTcn 

RTN 

lllOO0,aiMTST 

RTN 
PC 



se;^ 0005 



;R4 USED TO POINT TO UORD ADDRESSES 
;R5 USED TO POINT TO BYTE ADDRESSES 

COUNT I OF WORDS 

IF NOT, KEEP PACKING 

IF YES. GO BACK AND GET ANOTHER 

BLOCK PROM TAPE 

CHECK IF TAPE CONTROLLER READY 

UAIT UNTIL READY 

CHECK IF ERROR BIT SET 

IF NO THEN RETURN 

IF YES. THEN CHECK IF EITHER A 

READ COUNT OF SINGLE TRACK ERROR 

HAS OCCURRED. 

;HALT BECAUSE OF TAPE ERROR 
;IF YES, IGNORE AND RETURN 



I 



I 



GDI 
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SEC. OQOb 



001000 

QQ1004 
001012 
OOlOlb 

m 

OOK 
OOK 
001036 
OQIQMO 

001052 
001056 
OQlObO 
001064 
001066 
001070 
001072 
001076 
001100 
001102 
001110 
001116 
001122 
00112M 
001130 
001 13H 
001140 
001142 
001144 

001146 
001150 
001154 

001160 
001162 
001166 
001170 
001174 
001176 
001202 
001206 
001212 
001214 
001220 
001 
001 
001232 

001236 
001244 
001252 



001000 
012706 

012767 
0127M 
005001 



»71£ 
005201 
022701 
001370 
06270C 
012767 
020127 
002010 
004567 
001434 
000000 
000777 
012716 
000002 
006301 
116167 
116167 
166700 
010001 
010167 
012702 
022712 
001402 
060132 
000773 

005001 
016702 
112120 



004567 
001330 
00H567 
X1415 
016703 
004767 
004567 
001457 
004567 
0015% 
004767 
016707 
000000 

030040 
031440 
033040 



000050' 

001072 176772 
174000 



30C 
000034 
OOHOOO 

000006 176732 
000010 

000642* 



001044 



001236 000301 

001237 000274 
000112 

000652' 

002622 

177777 



000060 

000642' 

000642' 

000136' 
001232' 
000642' 

000642' 

000202' 
000136' 
000000 

030440 031040 
032040 032440 
033H40 03H040 



.S8TTL SIZER, HONITOR RELOCflTOR, ftND CTHER GOODIES. 
.=1000 

BEGIN: NOV •SPB0T.R6 jSET UP STACK. 

TSIZE CORE AND UPDATE tHE LITERALS OF RESIDENT MONITOR 



IS: 



2S: 



3S: 
4S: 



51S: 



NOV 
CLR 
ADO 
ADD 
INC 

criP 

BNE 
ADD 
NOV 

crip 

BGE 
JSR 

NOCORE 

HALT 

BR 

NOV 

RTI 

ASL 

MOVB 

novB 

SUB 
NOV 
NOV 
NOV 
CMP 
BEQ 
ADD 
BR 



1-4600, RO 
Rl 

•4000, RO 

Rl 

128., Rl 
IS 

14000, RO 
•6,4 
Rl,^8. 
4S 

R5,nES 



•2S,(6) 

Rl 

KCOpE(l),AK+l 

KC0DE+l(l),AK+2 

LIMIT+2,R0 

R0,R1 

RllRELCNT 

•SClTTB,R2 

6S 

Rl.a(R2)+ 
Sii 



RELOCATE MONITOR TO TOP OF CORE 



7$: 



LIMIT; 
KCOOE: 



CLR 
MOV 
MOVB 
DEC 
BNE 
JSR 
NAME 
JSR 

ARSTRT 

MOV 

JSR 

JSR 

FHELP 

JSR 

MNINST 

JSR 

MOV 

.LIMIT 

.EVEN 

.ASCII 



Rl 

LIMIT+2,R2 

(l)+,(a)+ 

R2 

7S 

R5, MES 

R5,MES 

SC0MC3.R3 

PCITOA 

R5,ME5 

R5,MES 

PC.DELAY 
SC6mC3,PC 



•DETERMINE ^OP OF CORE IN IK CHUNKS. 

REFERENCE UNKNOWN LOC. 
IF HERE, NO TRAP OCCURRED. 
DONE 28 TIMES' 
BR IF NOT. 

RESTORE ERROR TRAP. 
8K OR GREATER' 
BR IF YES. 

INSUFFICIENT CORE MESSAGE. 

;LOCK IN HALT._ ^ 
•TRAPPED TO HERE. EXIT TO 2S 

; READY TO TYPE CORE SIZE. 

;SET UP NEU LOAD ADDRESS 

•SAVE IT AT RELTHP 

•END OF TABLE' 
BR IF YES. 

•CORRECT FOR RELOCATION. 

i WHERE PROGRAM STARTS. 

: RELOCATE ONE BYTE AT A TIME. 
DONE' 

CONTINUE RELOCATION. 
•TYPE TITLE AND CORE SIZE. 

jTYPE RESTART ADDR. 



;TYPE FOR HELP MESSAGE. 

;TYPE THE HELP MESSAGE 

;UAIT A BIT. 

•GOTO RESIDENT MONITOR. 



012345678 9' 



HOI 
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SEQ 0007 



001260 
001262 
001270 
Jl 
1 

1310 

ooisk 

001330 
001336 
001744 
001352 
001360 
001366 
00137M 
001402 
001410 
001415 
001422 
0014X 
001434 
001442 
001450 
001456 
001457 
001464 

001500 
001506 
001514 

001530 
001536 
001544 
0015% 
001554 

001570 
001576 
001604 
001612 
001615 
001622 
001630 
001636 
0Q1644 
W1652 
001660 
001666 
001674 
001702 
001710 
001716 
001724 
001732 



034440 
030061 
031461 

»1 



0%440 
051117 
026%1 
026506 
040515 
020040 

045 
051101 
05110H 
044445 
044506 
020124 

000 

045 
047502 
042510 
047514 
044040 
042515 
020105 
041440 
020103 
000045 
02244S 

072 



020076 
052105 
047523 
0%111 
047125 

045 
020076 
044504 
051117 
041440 
042514 
042045 
037122 
051440 
042040 
04752S 
020116 
046117 

122 



030461 
032061 
1 




047117 
0%440 
046504 
020102 
026522 
045440 
042522 
020124 
000072 
051516 
044503 
047S03 

047524 
052122 



046105 
051523 
054524 
051124 
057050 



031061 
032461 
034061 

031462 
033062 

020120 
050104 
043071 
052111 
030455 
052521 
026461 
033467 
000 
052123 
042101 

043125 
047105 
042522 

040440 
052040 
0%117 
043516 
020120 
043501 
042520 
020114 
024503 



.ASCII '1011121314151617181S20' 



. ASCI I ' 2122232425262728 ' 



NflriE: .ASCII "XTRDP - XXDP TR7gF MONITOR fl-ll-DNQUF-B l-nAR-77-' 



AK: .ASCI2 ' K' 

ARSTRT: .ASCI2 '-/RESTART AODR:' 



NOCORE: .fiSCIZ "/{INSUFFICIENT CORE' 



FHELP: .ASCIZ 'JCTO ABORT THE FOLLOWING HELP MESSAGE TYPE CTRL C (tC)V.' 



054524 042520 NNINST: .ASCII'XXTYPE: ' 

.ASCII "/.F<CR> TO SET CONSOLE FILL COUNT' 



051103 
051440 
047117 
043040 
047503 



041440 
042S14 
020114 
124 
036104 
047506 
042522 
020131 
047117 

^3057 
043040 
047510 
OSllU 
054522 
047503 
026105 



051103 
020122 
052103 
047117 
047523 
051117 
041474 
051117 
052122 
041505 
047440 
05151b 
047440 



.ASCII ••/.D<CR> FOR DIRECTORY ON CONSOLE. OR' 



.ASCII '/.D/F<CR> FOR SHORT DIRECTORY ON CONSOLE, OR' 



101 
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SEi DGOe 




001733 
M17M0 
0017% 
)175M 

r 

)l 

D0200S 
00200S 



W 

0020M2 
0G20S0 
00205& 
002064 
002072 
002100 
002108 
002114 
002122 
002124 
002132 
002140 
002146 
U02154 
0021&2 
002170 




002216 
002224 
002232 
002240 




0Q226M 
002272 
002300 



142 
0023S0 
002366 
002364 




020131 
047111 
047111 
051045 
036131 
047S24 
041440 
051120 
026115 
051045 
047105 
051103 
051040 
054516 
051105 
051107 
045 
042514 
041474 
020117 
040440 
051107 
046116 

02o8^ 
040524 
042510 
051107 
051525 

1104 



002412 
002M20 



M 

040522 
051440 
044506 
051104 

042S14 
041474 
020117 



027504 
020076 
044504 
1117 




047117 
020105 
042524 
041440 
051103 
051040 
050117 
043517 

043040 
046501 
020076 
047125 
047440 
050040 
046501 
,14 

^12! 
047514 
050040 
046501 

^ 

052122 
050040 
046501 
020124 

041474 
020117 
:i2M 
1120 
020115 
042520 
020103 



0201c. 
0H0516 
037122 
052522 



036114 
047506 
042522 

m\ 

047111 
047440 

027514 
020076 
CN4123 
044504 
051117 
046040 
051120 
026122 
050117 
020076 
047125 
020131 
040522 

0461 11 

036105 
047524 
040440 
044124 
047522 
056 
4506 
. 2515 
052040 
042101 
047522 
047440 



052040 
047522 
045040 
047514 
054 
042101 

Will 

044124 
0H3517 
052101 
044503 
042101 



044£ 
042515 
052040 
020116 



.ASCII ••4)/L<CR> FOR DIRECTORY ON LINE PRINTER, OR* 



.PSCII ••4)/L/F<CR> FOR SHORT DIRECTORY ON LINE PRINTER,' 



.ASCII *'/.R C0PY<CR> TO RUN COPY PROGRflM,' 



.flSCn 'XR FILENfinE<CR> TO RUN ANY OTHER PROGRflN.' 



.fiSCII 'y.L FlLENfiME<CR> TO LOfiD A PROGRflfl ONLY' 



.ASCII '%S<CR> TO START THE PROGRAfI JUST LOADED,* 



.ASCII 'XS ADDR<CR> TO START THE PROGRAfI AT SPECIFIC ADDRESS* 



.ASCII 'XC FILENAflE<CR> TO RUN A CHAIN,* 



•PDF - XXDP MONITOR H-ll-OnOUF-B fIftCYll 27(732) 01-HPR-77 

OnOUFB.PH SIZER, HOHITOR RaOCRTOR, RfO OTHER CCOOIES. 



JQl 
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OOSbZZ 
00262M 

002bX 
002632 
002b3H 
0Q2b3b 



0026S0 
002662 
i)4 



i>72 
00267M 
002676 



04M103 04M50) 



0%111 




Q201g 

051105 
0H052S 
030455 
054121 
020122 
044524 
044040 
000045 



000154' 
001570' 
001550' 
000332' 
000334' 
000270' 
000272' 
50' 






001510' 
002540' 
000054' 
174' 
2' 
76' 
002152' 
001462' 
136; 

_ lisi' 

003120' 
002102' 
002072' 

If 




042522 
047524 
020120 
0464M0 
020114 
026%1 
020101 

S2101 
7117 
046105 



042506 
054040 
051525 
047101 
042115 
055104 
047506 
044504 
046101 
027120 



.ASCII 'XC FILENAnE/OViCR) TO RUN fl CHAIN IN QUICK VERIFY NODE. 



.ASCIZ 'ZREFER TO XXDP USER NRNURL MD-ll-DZOXA FOR ADDITIONAL HELP.X' 



.EVEN 

ILITTB: SRELl 

fREL2+2 

SREL3 

SREL4 

SREL442 

SREL5 

SREL5-f2 

|Sl6+2 
SREL7 

0+2 
1+2 
2+2 
3+2 
4+2 
5+2 
6+2 
SC0nC3 
CONCON+2 
GETINO+2 
L0A04+2 
SBUF 
SBUF2 
STXNAM 
SIDDB 
-1 



000000' 



.CSECT HTDIRT 



'ROP XXDP TR7qF MONITOP M-li -OnOLT-B 
OnOUFB.PH NON-RES I DCNT COD€ 



QOQOOO' 



•WCi'ii 27(732) 



KOI 

Ol-riflR-77 10: 3M 




OOOOX' 
U0003H' 

oSSwo- 

OOOOHM' 



000CX>2' Q002Q7 

OOOObH' 000 
0000&&' 

OOOOfab' 1052b7 
000072' OOOMOO 

000074' 012701 
000100' 000167 



002410* 
001%6' 
00013b' 
00112M' 

001442' 
105087 000030 

00450b' 000077 



QOODU 



.58TTL NON-RESIDENT CODE 

.CSECT 
; DIRECTORY ROUTINE. 

^RDIR: TST (SP)* 

flOV (SP) + ,FILLCT 

flOV (SP) + ,CURDRV 

MOV (5P)+, scones 

MOV (SP)+,KBPTR 

CLR R2 

JSR PC. SET! 

CLRB FStnOD 

JSR PC.NRGTSU 

JSR R5 BCLEAR 

I FNflM, 77. g. 

nOV R5,XFLM0D(R5) 

JSR PC aORTCRS) 

RTS PC 



FSTnOD: 



.EVEN 



177772 



000144' 
000552' 



SETFST: INCB 
BR 



NRGTSU: 



QQ0104' 0lb7b7 000030 

(500112' 016767 000024 

000120' 052767 

)12b' 012702 

)132' 5047b7 

136' 000756 

140' 177514 

000142 ' 177516 

000144' 

QQQ144' 000066' 

0(Hl54' 000104' 

0O0164' 000212' 



001004' LPSU: 
001000' 
000200 002410' 
000014 
000202' 

LPS: 
LPB: 



NRSUTB: 



WOV 
JMP 

flOV 
MOV 
BIS 
MOV 
JSR 
BR 

177514 
177516 



.UORD 
.liORO 
.UORO 
.UORD 
-1 



.BYTE 



FSTMOD 
NRGTSU 

•NRSWTB.Rl 
GTOKK 

LPS,nREG 

lpbImout 

•200.FILLCT 
•14.ft2 
PC.teLflY 
NRGTSU 



SETFST 
LPSU 
RTSPC 
GTOK 



SE^ x:s 



POP OFF 1ST STACK ELEMENT. 

GET FILL COUNT. 

GE"^ THE CURRENT DRIVE NUMBER. 

GET RES MONITOR RESTfJT ftODR. 

GET KYBO POINTER. 

FOR DEVICE SET ROUTINE. 

SET INPUT. NO NAME. 

ASSUME NO FAST MODt SUITCH. 

GET SUITCHES. 

CLEAR NAME TO ''S 

INDICATE WILD MODE. 
GO OUTPUT DIRECTORY. 
RETURN. 



;SET FAST MODE. 

POINT TO NON-RESIDENT SUITCH TABLE. 
GO SET SUITCHES. 

CHANGE STATUS REG. 
CHANGE BUFFER REG. 
MAKE FILLCOUNT NEGATIVE. 
OUTPUT A FORM FEED. 
UAIT FOR FORM FEED DONE. 

l! NE^^SffiTSR^lTR^^JEG^^DDR . 
LINE PRINTER BUFFER REG ADDR. 



DISPATCH ADDRESS FOR /F 
DISPATCH ADDRESS FOR /L 
DISPATCH ADDRESS FOR <15> 
DISPATCH ADDRESS FOR <40) 
TERMINATOR. 



LOl 



^RDP - XXOP TP7<}F rtONITOfi f1-ii-DrtOUF-B 
D*^QUfB.Pll NON-RESIDENT CODE 



riftCYll 27(732) Ol-flflR-77 10:3H PWE 1-10 



sea x:i 



1 ) 

2) 
25 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 

1) 
i) 

2) 

I) 



000202" 
000202' 



00021M' 
000216' 
000222' 

0002X' 
000232' 
00023M' 
000240' 
0002M2' 
0002%' 
000250' 
00025M' 



00M%7 
01b703 
005001 
112302 
00M767 
00S201 
020127 
103771 
101003 
112702 
0007&6 
120127 
103762 
00M767 
000167 



002156 • 



000666' 
000006 

000056 

000012 

002052' 
000752' 



:SUB TO TYPE 
iTPNni:: 

JSR 
HOV 
CLR 

II: tlOVB 
2S: JSR 
INC 
CMP 

BLO 
BHI 

novB 

BR 

3S: CMPB 
BLO 
JSR 
JMP 



FILE NflfC. 

RM.SAV04 
STXf«n.R3 

Rl 

(R3)*.R2 

PC,nE§l 

RI 

Rl,t6 

1$ 

31 

•'.,R2 
21 

Rl.tlO. 
IS 

PC.RST04 
Tfifi 



SftVE REGS 0-H 

AOOR OF NANE TO R3. 

CHAR COUNTER. 

GET A CHAR. 

TYPE IT. 

UP CHAR COUNT. 

DONE 6^ 

BR IF NOT YET. 

BR IF nORE THAN 6. 

SIX. TYPE A DOT. 

CO TYPE THE DOT. 

DONE 10' 

BR IF NOT. 

RESTORE REGS 0-4 

GO TAB AND RTS PC. 



MQl 



TROP - XXDP TR79F MOMITOR 1-11-DnOUF-B MflCYll 27(732) Ol-nftR-77 
DnOUfB.Pil BIN«RY TO DiClflflL CONVER' ftND TYPE SUBROUTINE 



10:34 PAGE 1-11 



000260' 
00Q2b0' 




00HHt>7 0020HQ' 

i\k?Qa 0U037H' 



000302' 
00G30H' 




ill 

3312* 
000314- 
00031b' 



00032H' 
000328' 
000330' 
000332' 



000342' 
000C4&' 

000356' 
0003b2' 
000370' 
000374' 



75 
005002 
012001 
OCl 422 
1&0103 
103402 
005202 
00077M 
0b0103 
005702 
001005 
0Q571b 
001003 

012702 000040 

000403 

00S21E> 

Ob27J2 OOOObO 
0047&7 000776' 



BCOCV: 

BCOl: 
BCC2: 
BC05: 

BCD4: 



000167 002236' 

023420 001750 000144 

000012 000001 
000000 



BCD6: 
BCD7: 
BCD3: 



■SBTTL BINARY TO DECIMflL CONVERT AND TYPE SUBROUTINE 



JSR 

NOV 

NOV 

CLR 

TST 

DEC 

BGT 

CLR 

flOV 

BEQ 

SUB 

BCS 

INC 

BR 

ADO 

TST 

BNE 

TST 

BNE 

NOV 

BR 

INC 

ADD 

JSR 

BR 

TST 

JNP 

.UORO 



R4.SAV04 
(R5)*.R4 

idectAb.ro 

-(SP) 

-(RO) 

R4 

BCOl 

R2 

(R0)+,R1 

BC03 

R1.R3 

BC64 

R2 

BC05 

R1,R3 

R2 

BCD6 

(SP) 

BC06 

•40.R2 

BC07 

(SP) 

•'0.R2 

PC.CHROUT 

BC62 

(SP)+ 

RESR5 

10000., 1000. ,100., 10., 1 



SAVE REGS 0-4 
NUnkR OF DIGITS 
TABLE OF DECINAL NUHBERS 
STACK UORO FOR INDICATOR. 
STEP TO THE LARGEST DIGIT 



;R2 IS TO RECEIVE THE (iUOTIENT 
THE DIVISOR 
;EXIT IF ZERO 
•DIVIDE BY SUBTRACTING 

;UP THE QUOTIENT AFTER EACH SUB 

;GONE TOO FAR 
; QUOTIENT sO' 
;N0 

•.LEADING ZERO'S' 
;N0 

•YES PRINT SPACE 

;NOMORE LEADING ZERO'S 
MAKE IT ASCII 
; PRINT IT 

;POP INDICATOR WORD. 

;G0 RESTORE REGS 0-4, DO RTS R5. 



0ECTA6: .UORD 



'ROP - XXOP TR7SF NONITOR M-ll-DflQUF-B MACVll £?i72S) 



OMQUFB.Pli 



WTE Urf»«CK flfC TYPE SUBRCJTIf€ 



00037b 




426 

8884HO 






000552 




000562 





00Ob4H 




Soo^S 



00H%7 0020HO' 

am 




lb2703 001750 

001750 

0127b7 000034 OOOObb 
000003 





000037 





iTM' 

000702' 
045055 



045055 



047455 
047055 
042055 



177572 



000030 000004 
000642' 



1775% 
002022' 

000034 000037 
00003b 000037 
000037 00003b 



047101 
Q41105 

Q54S01 
047125 
0%li 





052103 
053117 
041505 



000055 
000055 
000055 



.SBTTL 



DATUPK: 

flQV 
BIC 

DfiTUPl: INC 
SUB 
BGT 
ADO 
flOV 
BIT 

ere 

INC 

DPTUP4: MOV 
DfiTUP3: CrP 



BR 

DflTUP2: JSR 
.UORD 
KOV 
JSR 
.UORO 
MOV 
JSR 
.UORO 
JMP 
.UORO 



DftTUPS: 



OATTAB: 



SJftM 
SFE6 
SMAR 
SAPR 
SMflY 
tJUN 
SJUL 



SSEP 
SOCT 
SNOV 
SOEC 



.UORO 

.UORO 

SJAN 
SFEB 
SMAR 
SAPR 

SMAY 

$JUN 

SJUL 

SAUC 

SSEP 

SOCT 

SNOV 

SOEC 

.ASCIZ 

.ASCI2 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 



NOl 
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se;^ 0013 



DATE UNPACK AND TYPE 
JSR R4,SAV04 

llSUl00.R3 
R4 

I1000.,R3 
DATUPl 
•1000.. R3 
•28.,0AtTAB+2 

DAtUP4 
DATTAB+2 
IDATTAB.RO 
R3.(R0) 

datupS 

RS.BCDCV 

i4.(R0),DATUP5 
R5,nES 

0 

R4,R3 
R5 BCDCV 
2 

RESR7 

31. ,28. ,31. .30. 
31. ,30. ,31. ,31. 
30., 31. ,30., 31. 



'-JAN-' 
'-FEB-' 
'-HAR-' 
•-APR-' 
•-HAY-' 
'-JUN-' 
•-JUL-' 
•-AUG-' 
'-SEP-' 
•-OCT-' 
•-NOV-' 
•-DEC-' 



SUBROUTINE 

Y Ar^^^ 1^7" 
i?E?^RI§ 0F^?0N?l8 BIT 
iSEE! 

iFIND UHAT YEAR 

UENT TOO FAR 
ASSUME LEAN YEAR. 
LEAP YEAR' 
BR IF NOT. 

YES. CORRECT FOR FEB. 
GO f'INO UHAT MONTH 
LESS THAN UHAT THIS MON HAS 
YES, FOIM) THE MONTH 
NO, ADVANCE MONTH 

PRINT OUT THE DAY FIRST 

POINT TO MONTH NAME 
AND PRINT IT 

NOU THE YEAR 
PRINT THAT OUT 

GO RESTORE REGS 0-4, DO RTS PC. 



BOS 



.1. 



.EVEN 



CQ2 



TRDP - XXDP TR79F HONITOR 1-ll-Df1QlF-B 
DWB.Pll CHAIN BUFFER 



(1) 

a; 
(1) 

(1- 



000000- 



000000' 
OCOHOC 

000000' 



rWCYU 27{732) Ol-nflR-77 10: 3M PftGE 1-14 



.SBTTL CHftIN BUFFER 

.CSECT RUN8UF 

RUNBUF: .BLKU SSb. 

.SBTTL PftK & UNPftK TR BUF 

-CSECT TRBF 



SEQ OOlS 



DOS 



'ROP - XXDP TR7<3F MONITOR H-li-DHOUT-B flACYll 27173Z) Ol-flfiR-77 1G:3S PACE I-IS 

ofiouFB cofmc decoder, ini, ofc delpy routines 



000000* 



) 000000' 00003M 
J 000050' 



OOOOSb' 



000070' 
00007E' 

oaoo7b* 

OOClOO' 
000102' 
000104' 
QOOlOb' 



000110' 
OOOUM' 
000120' 
000122' 
Q00l2b' 
000132* 
00013H' 
000136' 



Jl27% OOOObO' 
000002 

0OH7b7 000730 
005737 0OOOM2 
00JM25 

1057b7 000121 

001022 

005327 

000000 

001H17 

000207 



QCM7b7 OOOObb 
004%7 001720 
010500 

0045b7 00052b 
1057b7 00H37C 
001004 
012707 
OOOIHO' 



000140' 005027 
000142' 000000 



000144' 01270b 000050' 

000150' 004567 X1740 

000154' 003400' 000000 001135 

000162' 004567 000454 

OOOlbb' 004535' 

000170' X4567 000630 

000174' 004767 000346 

0002X' 000761 



000202 ' 0050% 

000204' 005316 

000206' 100776 

000210' 005726 

000212' 000207 



.SBTTL 
.CSECT R£S^ N 
tPROCRWI STPCK 
A6STCK: .BLKU 
5PB0T: 



COfflANO DECODER. INI. W10 OELPY ROUTINES 



20. 



END OF 

TRT:: 
LU: 

RSTRTl: 



PCOUNT: 



PftSS 

NOV 

RTI 

JSR 

TST 

BEQ 

TSTB 

BNE 

DEC 

.UORD 

BEQ 

RTS 



CHAIN NODE 
CLR 
IRS 



ENTRY POINT. 
-(b) 
TRTl,-(b) 



PC.CR0UT2 
9l42 

concoN 

QVnOOE 

COMCON 

(PC)* 

0 

COMCON 
PC 



ERROR REPORTING ROUTINE 



tOMCOl 



SC0nC3: 



JSR 
JSR 
MOV 
JSR 
TSTB 
BfC 

nov 

conco3 



PC, DELAY 
R4,SAV04 
R5,R0 
RS!«ES0 
RUAlO 
COMCON 
(PC)*, PC 



iCHAIN MODE IS CLEARED HERE. 
tOHC03: CLR (PC)* 
CHN: .HORD 0 

: WHERE EVERYTHING STARTS 
tOttCON: MOV ISPBOT.SP 
JSR RS.BCLEAR 
fRELl: CLRBEC,0,Cf.REND-CLR8EC 



C0MC02: JSR 
ROOT 
JSR 

C0MC05: JSR 
BR 



DELAY:: CLR 
IS: DEC 
BMI 
TST 

RTSPC: RTS 



RS.MES 

R5, INPUT 

PC.GTOK 

COHCCN 



-(SP) 

(SP) 

IS 

(SP)* 
PC 



CLEAR T BIT. 

HiLL RTI TO RSTRTl 

CHECK FOR CTL C. 

ABORT CURRENT PROGRAM' 

BR IF YES. 

QUICK VERIFY MODE' 

BR IF YES, DO NEXT CHAIN ENTRY. 

ALL PASSES DONE' 

PASS COUNTER. 

BR IF YES 

NO. RETURN TO CURRENT PROGRAM. 



WAIT A BIT. 

SAVE REGS 0-4 

GET ADOR OF ASCII MESSAGE. 

TYPE ERROR MESSAGE. 

UAS IT PUN COMMAND' 

BR IF YES. CONTINUE CHAIN MODE. 

GO TO C0MC03. 



; CLEAR CHAIN MODE. 
•CHAIN MODE INDICATOR. 

;SET UP THE STACK 

•CLEAR BUFFERS, VARIABLES. 

;TYPE A DOT 1ST. 

;G0 FETCH A COMMAND 
; CHECK COMMAND SYNTAX 
I TILL EVERYTHING IS DONE 

jDELAY A LITTLE BIT. 

: RESTORE STACK. 
;DONE. RETURN. 



TROP - XXDP TR79F flOHlTOfi fl-li-OttOUF-B MACYH 27i'732! Di-nflR- 



EOl 
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CHfil^ SETUP PONTINE 



in 

(1) 

.1) 

i IJ 

(1) 

(1) 

(2j 

(1) 

(1) 

(1> 

(1 

(1- 

(1 

II 

(2 

a 

( 1 
(1 
(2 
(2 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(1 
(i 
il 
(1 
(1 
(1 
(1 
(1 



000214- 
0OQ21b' 

17' 




00023H* 
0002H0' 
0Q024M' 
00Q2S0' 
000256' 
0002b2' 
OOQ%S' 
000270' 
00027&' 
000302' 
00030&' 
000312' 
00031b' 
000322' 
000322' 
00032b' 
000332' 
000340' 
0003%' 
000354' 
OOOSiO- 
000362' 
000364' 
000366' 
000370' 
000372' 
00037b' 
000S02' 
000406' 
000410' 
000412' 



005027 
OX 
000 
012767 
112767 
004767 
004767 
004567 
003234' 
105267 
0105% 
004567 
004400* 
004%7 
004767 
004767 

105067 

004767 

004567 

000000' 

012767 

012767 

105267 

005303 

001357 

012605 

005027 

000000 

012703 

012704 

062367 

005304 

001374 

000207 



041503 

000103 

001206 

000302 

001634 

004400' 

177734 

001614 

003234' 

001536 

002356 

001540 

177700 

177674 

001370 

001552 

003400' 

000002' 

000776 

177636 



oooono- 

000400 
177762 



004266 
004262 



000117 



001000 
177574 
002764 



DOIT: 
BKCT: 
QVMOOE: 



SREL6: 

DOl: 
002: 



000117 SREL5: 



003: 



SREL4: 
SREL13: 



RCKSUM: 

RCKSfl: 

5REL12: 

IS: 



.S8TTL CHAIN SETUP ROUTINE 

CLR (PC)* 

.BYTE 0 

.BYTE 0 

nOV l-CC.IFNflfl+b 

nOVB i'C,IFNWl+8. 

JSR PC.SETIN 

JSR PC.GTSH 

JSR RS.BNOVE 
BTCDDB, Ili06e,BTCEN0-BTCDD8 

INCB BKCT 

MOV R5,-(SP) 

JSR rsIbmove 

INDOB , BTCDOB . BTCENO-BTCDDB 
JSR 
JSR 
JSR 
nOVB 
CLRB 

JSR 
JSR 

RUNBUF, 

nov 

NOV 
INCB 
DEC 
BNE 
flOV 
CLR 
.WORD 
NOV 
NOV 
ADD 
DEC 
BNE 
RTS 



R4,SAV04 
PC.INITI 
PC.RST04 
BKtT,R3 
BKCT 

PC.REftOL 
R5 BHOVE 
BUF,S12. 
•RaNBUF*2,CHN 
1510., RNBK 
BKCT 
R3 
003 

(SP)+,R5 

(PC)4 

0 

iRUNBUF,R3 

»2S6.,R4 

(R3)+,RCKSn 

R4 

IS 

PC 



AT FIRST BLOCK. ALSO CLEARS OVMODE. 
CONTAINS CHAIN BLOCK 1. 
QUICK VERIFY JN(JJCATOR. 



SET UP A CCC 



iNSION. 



;SET INPUT DEVICE. NAME NEEDED. 
GET SWITCHES. 

;COPY INPUT DOB TO BATCH 008. 

;HANT FIRST BLOCK OF FILE. 
;5AVE R5. 

; BATCH DDB TO INPUT DOB. 

SAVE REGS 0-4 

INIT INPUT. 

RESTORE REGS 0-4 

GET THE REQUIRED BLOCK NUflBEF. 



;READ LINKED FILE BLOCK. 

; INPUT BUFFER TO BATCH BUFFER. 

SET CHAIN MODE WITH AODR OF 1ST CHAR. 

I OF CHARACTERS IN BUFFER. 

INCR i OF BLOCKS READ. 

READ THE WANTED BLOCK' 

BR IF NOT. 

RESTORE R5. 

CHECKSUM THE BATCH BUFFER. 

GET AODR OF BATCH BUFFER. 
UILL DO 256 U0RD5. 
CHECKSUM A UORO. 
ALL DONE' 
BR IF NOT. 
YES. RETURN. 



- XXDO TR79F nONlTOR H-ll-DrtOUF-B fWCYU 27 1 732) 
auFB Pi I CHfilfi EXECUTION ROUTINE 











.58TTL 


00OS1&' 


[50i02J 




CHAIN: 


CNP 
BNE 


000S20' 


016746 


177744 




NOV 


888:!$' 


□26756 


177734 




JSR 
CNP 


000434' 


001412 






BEG 


00OH3(i' 
0004H2' 


0167% 


177500 




NOV 


0167% 


002672 




NOV 


0004%' 


004767 


177610 




JSR 


000455' 


012667 


002662 




HOV 


0004Sb' 


012667 


177460 




NOV 


0004£i2' 
0004i>fc' 
000472' 


016703 


177454 


CHAINQ: 


NOV 


016704 


002646 




NOV 


005304 




CHfllNl: 


0£C 


000474' 


100003 






BPL 


000476' 


004767 


1775S4 




JSR 


000502' 
000504' 


000767 






BR 


112302 




CHAIN2: 


novB 


OOOSQb' 
000510* 


001614 






BEG 


120227 


000012 




cnPB 


000514' 


001766 






BEG 


00051b' 
000522' 
000526' 


010367 


177420 




nov 


010467 


002612 




nov 


000207 






RTS 



F02 
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CHAIN EXECUTION ROUTINE 
RO.Rl 

chAino 

RCKSn,-(SP) 

PC.RCKSyn 

RCftSM.(SP)* 

CHAlNfi 

CHN.-(SP) 

Rf«:.-(SP) 

PC.D62 

(S^)*,RNBK 

(SP)*.CHN 

chh.rS 

Rfell,R4 
R4 

CHAIN2 
PC. 001 

chAino 

(R3)*.R2 

concoS 

R2.fl2 

chAini 

R3.CHN 

R4,RNBK 

PC 



ftT START OF KYBO BUFFER' 
BR IF NOT. 

SAVE BATCH CHECKSUfl. 



^HECKSUfl THE BUFFER 



CH* 
BR IF YES. 
NO. SAVE CHN 
SAVE RNBK 
GET T« BLOCK. 
FSSTOi€ RNBK. 
RESTORE CHN. 
NEXT conriANO 

COUNT 

;BR IF POSITIVE 

;N0. NEED NEU BUFFER. 

GET ft BYTE 
BACK TO C0MC03. 
LINE FEED" 
DISREGARD IT. 
SAVE IT 
THAT TOO 
RETURN. 



^ROF - XXOP TR7"?F flOWITOR n-ll-DMOUF-B 
D^OUFB.Pli COfmC OECOOEP 



0005X' 00M7b7 00065^ 

ggofas' oioab? oo37£>o 

OOOSHO' 000402 

OOOSH?* 105267 I77H5I 



0005%' 

0OOS5(>' 060201 



542 • 

"74 



OOOSbO' 
000564' 
000566' 
000570' 
000572' 

000600' 
000604' 
000606* 
000610' 



016700 000340 

012104 

012103 

122021 

001007 

m\ 

010067 000320 



000114 



000612' 010301 

000614' 060201 

000616' 022711 

000622' 001356 

000624' 004567 

000630' 047111 

000636' 051457 



177777 



177260 
041526 
000127 



045115 



PIftCYii 27i732) 



.SB^TL 
SETCNT: JSR 
MOV 
BR 



GT0K:GT5U: 

nov 



GTOKK: 



flOV 
ADO 



CTOKX: MOV 
GTOKl: MOV 
MOV 

GT0K2: CHPB 
BNE 

GT0K3: TSTB 
BNE 
MOV 

GT0K4: ADD 
CLR 
JNP 

GTOKY: MOV 
ADO 
CMP 
BNE 



INVCnO: 



•flSCIZ 
• EVEN 



GD2 

Ol-nPR-77 10:34 



COftm) DECODER 
PC.flTOI 
R2.IC0UNT 
GT^U 



PAGE I-IB 



SETQV: INCB OVMOOE 



•COMTfiB.Ri 

RELCNT,ft2 

R2.R1 

KBPTR^RO 

(l)+,ft4 

(1)+ R3 

(RO)*, (RlH 

GTOKY 

(Rl) 

GT0K2 

RO.KBPTR 

R2,R4 

R2 

(R4) 

R3,Ri 
R2 Rl 
•-1,(1) 

JSR R5,C0MC01 
' INVCMD/SU' 



: GET THE COUN^ 
; STORE r. 



;SET OV MODE. 



; DEVICE DECODING COMES HERE 

;G£T RELOCATION FACTOR. 

; CORRECT Rl FOR RELOCATION. 

;GET STRING POINTER 

;GET DISPATCH ADOfl. 

;GET POINTER TO NEXT ENTRY. 

; HATCH THE CHARACTER' 

;LAST CHR IN ENTRY' 
NO, CHECK The OTHER CHR'S 
;SAVE STRING POINTER. 
■CORRECT FOR RELOCATION. 

; DISPATCH UHERE NEEDED. 

; POINT TO NEXT ENTRY. 
; CORRECT FOR RELOCATION. 
; FILLED' 

;BR IF YES. KEEP LOOKING. 
: REPORT INVALID COMHANO/SW 



SEi XIS 



TRDP - XXOP 'R7gF flOMlTOfi l-il-DWiUP-B 
OnOUFB.Pll rCSSAGE ROUTI»CS 



H02 

IflCfil 27.732) Ol-nflR-77 10:3M PAGE 1-19 



SEi DC2C 



000bH2' 
000642' 
0006%' 



00MMfe7 
012SO0 
7O0 



OOObSM' 
000656' 
000660' 
00066M' 

0OC7O0' 

000702' 
000704' 
'10' 
'14' 
'lb' 
000722' 
000726' 
000732' 
000736' 
000740' 
000742' 
00074M' 
000746- 
000750' 



112002 
001525 
004767 
000773 
120227 

mi 

001036 

010246 
012702 
004767 
000302 
0W767 
116702 
005077 
004767 
005302 
003372 
005027 
000000 
012602 
000207 



000752 ' 0102% 

0007SS' 012702 

000760' 004767 

000764' 142767 

000772' 001370 

000774' 000764 



000776' 
001000' 
001002' 
001002* 
001004' 
001006' 
001010' 
001014' 

3811 



110237 
177566 

105737 
177564 
100375 
105267 
004767 
000207 
000470 



X1172 



000002 
000011 
000045 



005015 
000062 

000054 
001462 
000046 
000044 



riES: 



RELCNT: 
flESO: 



nESl: 



CRLF: 



IS: 



CHRCNT: 
CRLFl: 



.SBTTl r«S5«C£ ROUTINES 



JSR 

nov 

ADO 

I 

novB 

BEQ 
JSR 
BR 

CflPB 
BEQ 
CHPB 
BfC 

nov 
nov 

JSR 

sure 

JSR 

novB 

CLR 
JSR 
DEC 
BGT 
CLR 
.UORD 

nov 

RTS 



R4.5ftV04 

(R§)*,RC 

(PC)*,RO 

.UORD 0 

(R0)-t-,R2 

GEX04 

PC.I€S1 

heSo 

R2. 11 1 

R2.l'v. 
CHfiOUT 

R2.-(SP) 
•56l5,R2 

pc.chAout 

R2 

PC.CHROUT 
FILLCT,R2 

anouT 

PC, GROUT 1 

R2 

IS 

(PC)+ 
0 

(SP)+,R2 
PC 



000040 
000012 
000370 



177752 



iTflB SUBROUTINE, 

IS: nov 

JSR 
BICB 



R2.-(SP) 
•4i.R2 
PC.tHROUT 
•370, CHRCNT 
IS 

CRLFl 



SAVE RECS 0-4 
MESSAGE BUFFER TO RO 
CORRECT FOR RELOCATION. 

; RELOCATION FACTOR. 
PICK UP ONE CHR TO R2 
BR IF 0. 
GO OUTPUT CHAR. 
GO FOR nORE. 
TAB CODE' 

BR IF YES TO DO A TAB. 

BR IF NOT. 

SAVE R2. 
OUTPUT CR. 

OUTPUT LINE FEED. 

GET READY FOR FILLER CHARS. 
FILLER IS 0. 

DONE' 

BR IF NOT. 

CLEAR THE CHAR COUNT. 
CHAR COUNT VARIABLE. 
RESTORE R2. 
DONE. RETURN. 



SAVE R2 

SPACES 00 THE TABBING. 
OUTPUT A SPACE. 
SEE IF DONE. 
BR IF NOT DONE. 
GO EXIT. 



SUB TO OUTPUT CHARACTER TO CONSOLE OR LINE PRINTER 



177730 
000116 



6hrout 

riOUT: 
CROUTl 

riREG: 



CR0UT2: 



.UORD 

TSTB 

.UORD 

BPL 

INCB 

JSR 

RTS 

BR 



nOVB 
177566 

a(PC)+ 

177564 

CROUTl 

CHRCNT 

PC.CKYBD 

PC 

GETCRl 



R2,a(PC)+ 



; OUTPUT CHAR. 

;UAIT FOR READY. 

;BACK IF NOT READY. 
;UP CHARACTER COUNT. 
; CHECK KEYBOARD. 

EXIT. NO CHAR. 

CHECK FOR CTRL C. 



TROP - XXOP TR7<JF HONITOR l-ll-DHOUF-B 
OMOUFB.Pil If#>UT ROUTINE 



fWCYll 27(732) 



102 

Ol-fKW-77 10: 3H 



PASE 1-20 



00102S- 

ooioas' 

OOif 
U 



001036' 
001036' 
001042* 
0010%' 

mm' 

001056' 
001062; 

00l8^' 
001072- 

OOllW' 
001106' 
001110' 
001112' 
001114* 
OOlUb' 
0011^' 
00112N' 
001126' 
001132' 
00113e' 

001136' 
001140' 
001142' 
001144' 
0011%' 

SSiilS'- 

001160' 

001170' 
001174' 
001176' 
001202' 
001204- 
001210' 
001212' 



004%7 

mi 

004767 
120227 
103405 

iijic 

162702 
120227 
001407 
110220 
120227 
001407 
£104767 

m, 

iiiSi 

000771 
112720 
010127 
000000 
004767 

000167 

105737 
177S60 
100006 
013702 
177562 

m. 

000207 

8814S3 
004767 

000403 
004767 
000775 
120227 
001363 
016707 



001010 
003354' 



00012Q 
000141 

000172 

000040 
000177 



000015 
177562 



000012 

177550 
001100 



177600 
000002 



176754 
177220 
177734 
000003 
176720 



SEli 0C2: 



INPUT: 
GETIN: 

GETINO: 

GETIOl: 

2S: 

3S: 



IS: 

GEn06: 

GETI03: 
GETI02: 
GETIU: 
GETI08: 



KBPTR 
GEX02 
GEX04 



.SBTTL INPUT ROUTINE 
:T0 C«LL 'INPUT' DO ft 
:FOLLOUED BY 



JSR R5. INPUT 

* ftOA OF nE55ftGE TO BE 



CKYBD 
KTKS: 



KTKB: 



GETCHR: 



IS: 

GETCRli 



JSR 

nov 
nov 

JSR 

CHPB 

BLC 

CNPB 

BHI 

SUB 

CHPB 

BEQ 

novB 

CHPB 

TO 



BR 
CMP 

nSvB 

BR 

novB 

MOV 

.UORO 

JSR 

JMP 



TSTB 
.UORD 
BPL 

nov 

.UORD 
BIG 
ftOO 

CKYBD 1: RTS 



TST 

BEQ 

JSR 

BR 

JSR 

BR 

CNPB 

BNE 

NOV 



R4.SflV04 
•Kdl^.RO 
RO.Rl 

PC, GETCHR 

R2,I141 

IS 

R2,I172 
IS 

•40, R2 

R2.4177 

G£tl02 

R2,(R0)* 

R2.I15 

GETIOl 

Rl.RO 

GEtlOl 

-(R0).R2 

GETI03 

•12,(R0)+ 

Rl.lPO* 

0 

PC.CRLF 
RE5RS 

a(PC)+ 

177560 

CKYBDl 

3(PC)*,R2 

177562 

t 1 77600, R2 

t2.(SP) 

PC 

CHN 
IS 

PC.CHftIN 
GETCRl 
PC, CKYBD 
IS 

R2, 13 

CKYBDl 
SC0nC3.PC 



TYPED PRIOR TO INPUT 



;SftVE REGS 0-4 
INPUT BUFFER 
ISftVE THE R00RES5 

GET ft CHARACTER 

LESS THRh LOUER CASE ft^ 

BR IF YES. 

HIGHER THAN LOUER CftSE 

BR I? YES. 

NftKE IT UPPER CftSE. 

RUBOUT' 

YES 

STORE IT, NOT SPECIAL CHAR. 
CARRIAGE RETURN' 
QUITTING TINE 
ECHO THE CHARACTER 
CONTINUE INPUT 
RUBOUT, BUFFER ENPTY' 
YEP, ECHO CRLF 
GET THE LAST CHR 
AND ECHO IT 
TOO. 

START OF KEYBOftRD BUFFER. 
POINTER. 



STORE LF 
POINT TO 
KEYBOARD 
CRLF. 



;G0 RESTORE REGS 0-4, DO R"'"S R5. 

; KEYBOARD ACTIVE' 

;BR IF NOT. 
;GET CHARACTER. 

: CLEAR OUT JUNK BITS. 
SET UP CHARACTER IN BUFFER RETURN. 
EXIT. 



JN JHAIN.nODE' 



F NOT. 

YES, GET CHAR FRON CHAIN FILE. 

WAIT FOR CHARACTER. 

LOOP TILL YOU GOT ONE. 

CTRL C 

BR IF NOT. 

YES. TINE TO QUIT. 



JOS 

'ROP - XXOP TR7V fKJMITOfi l-ll-DHOUF-B HACYll 27(732) Ol-flflR-77 10:3H PAGE 1-21 

DfldUFB.PlI ERROR rCSSAGE ROUTIfCS. S£& 0&2e 

ill 001216-004567 176666 DEVERR: : '^SI?^Sflc8l'^'^^" ; REPORT DEVICE ERPCP. 

>1) 001222' 042S0H 0M2S26 051122 .ASCIZ 'DEVERR' 

.1' 001230' UOC 

ii; 001232' .EVEN 



t 
1 



"RDP - XXDP TR7Sr MONITOR 1-ll-D%Uf-B 
DtlOUFB.Pll ITOfl SUBROL'TIfC 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
I 
1 
1 
1 
1 
1 
1 
2 
2 



nflCYi 



001232' 
001236' 

0012%' 

m" 

001 

001262 

001270' 

001276' 
001300' 
001302' 
001302' 



00^67 000602 
Q1270M 000006 



062702 000060 
^ 767 177520 




006102 
000762 

000167 000514 



ITOfl: 
ITOfll 



IT0fl3 
IT0fl2 



KQ2 

27(732) Ol-flfiR-77 10:3M PAGE 1-22 



.SBTTu ITOfl SUBROUTINE 
;BIfiflRY TO ASCII ROUTIPC 

; TAKES UHAT'S IN R3 AND SHIFTS THREE BITS INTO R2 
:THEN CALLS PRINTOUT ROUTINE TO OUTPUT THEN 

)5R RM.SAVOM 

NOV 16, R4 

CLR R2 

BR IT0A3 

ADO •'0.R2 

JSR PC.CHROUT 

DEC R4 

BLE IT0A2 

CLR R2 

ASL R3 

ROL R2 

ASL R3 

RQL R2 

ASL R3 

ROL R2 

BR ITOAl 



SC& 0023 



;I GET SCREUEO HHEN I DON'T 
;D0 ONLY SIX TINES 
•UHERE THE DIGITS GO 

HAKE IT ASCII 
TYPE IT 
ONE OOUN 
IF NONORE TO GO 
GET RIO OF OLD STUFF 
SHIFT COMBIfCD 
THREE TINES 
THIS IS 



ACTUALLY FASTER 
AND NORE EFFICIENT 
THAN A DO LOOP 
KEEP GOING 



JNP 



RESR7 



:G0 RESTORE REGS 0-4. DO RTS PC. 



LOi 



- XXOP TR7SF flONITOR H-ll-OflOUF-B nftCYll 27(732) Ol-MPfi-77 10:3M PftGE 1-23 
FB.PU GETftfl/ATOI SUBROUTIfCS 



001314' 
00131b' 

i; 



8^ 

005027 



88 



1322' 
001^' 
OOlSO' 

8813!: 

S1342' 

001350' 
001352' 
00135M' 
001356' 

OOlSI' 
001366' 
001372' 
00137M' 
M137M' 
rai376' 
001402' 
001406' 



001410' 
001414' 
001416' 
001422' 
00142S' 
0014X' 
001432' 
001434' 
00H36' 
001440' 



005300 
010067 
105767 
000207 



016700 
112003 
162703 
100764 
020327 
003361 
006302 
006302 
060302 
000765 



177612 

000040 
000015 
000060 
000067 



000060 
177724 



177522 
177710 



177510 
000060 
000011 



.SBTTL GETNUfl/flTOI SUBROUTINES 



GETNUfI: 
CT^f11 : 

YES: 
2S: 



3S: 

CTNMO: 
CTNUni: 



nov 

CLR 
CLR 
.UORO 

novB 

CHPB 

BEQ 

CMPB 

BEQ 

CflPB 

BLT 

CflPB 

BGT 

ASL 

flSL 

ASL 

POO 

SUB 

INCB 

BR 

DEC 
MOV 
TSTB 
RTS 



KBPTR.RO 
Rl 

(PC)* 
0 

(R0)+.R2 
R2 . IMCi 
GTNfll 
tl5,R2 
3S 

R2,l'0 
3S 

R2.t'7 

3S 

Rl 

Rl 

Rl 

R2.R1 
••6,R1 
YES 
2S 

RO 

RO.KBPTR 

yeS 

PC 



:C;ET STRING POINTER. 
iDftTft 

GET A BYTE 
SPACE' 

YES. IGNORE IT 
OR' 

YES, RETURN 

LOU LiniT 

TOO LOW 

HIGH LIMIT 

TOO HIGH 

SHIFT OLD STUFF 

3 TIMES LEFT 

I.E. MULT. BY OCTAL 10 

ADO rCU TO OLD 

BUT GET RID OF ASCII STUFF 

SET FLAG 

nORE, MORE 



;SAVE STRING POINTER. 
;N0f10RE 



OECIfW. ASCII TO BINARY CONVERT SUBROUTINE 



Atoi. 

ATOIl 



NOV 

NOVB 

SUB 

Bni 

CflP 
BGT 
ASL 
ASL 
ADD 
BR 



KBPTR.RO 
(R0)+.R3 
I'O.rS 
GTNTO 
R3. IS. 
GTNMO 
R2 
R2 

R3.R2 

at6ii 



POINT TO STRING 
GET DIGIT. 
CONVERT TO BINARY 
NOT A DIGIT. 
CHECK UPPER LIMIT. 
TOO HIGH. 



:ALL DONE. 



TBOP - XXDP TR7V IWITOR n-ll-OIOUF-B BflCVU 27(73S) Ol-nBR-77 
OriOUFB.PU OEVICt SETUP ROUTINE, INPU' INIT ROUTINE 



MO 



10: 3M PfiGE 1-2H 



001H4H' 
0014%' 
001450' 
OOIHK' 
00145M' 
QGISU)' 
001%M| 

SoimS* 

001472' 
001474* 
001476' 
001500' 
001504' 
X1510' 
001516' 
001522' 

001532' 
001534' 
001540' 
X1542' 
001544' 

S8i^'- 

001556' 
001556' 

001566' 
001572' 
001576' 
001600' 
001604' 
0016G6' 
001612' 
X1614* 
001620' 
001622' 
001626' 
001630' 
0O16>4' 
001636' 
QQ1642' 
00164M' 
0016%' 

X 

001 
001 
001 
001664' 
001670' 



0050% 
000401 
0107% 
§12705 
lli04%2' 

0167% 177172 
012700 00%56' 



SETI: 

SETIN 
DVSET 

siooe 

SREL16 

CURDRV 



JliC 
061600 
004710 
061600 
010067 000006 
004567 000374 
004436' 000000 000050 
016703 177766 
012701 000011 
061623 
005301 
001375 

062665 000020 

005726 

001531 

000006 



000256 
177336 
004506' 
000006 

000077 

177720 

000015 

000040 

000060 

000132 



020327 000006 
001403 

010067 177234 
000454 



004%7 

8il% 

012703 
112002 
120227 
001003 
010565 
000416 
120227 
001411 
120227 
001763 
120227 
103403 
120227 
1' 



$REL7: 
5S: 

FlLNflM: 

SREL3: 
FNflt13: 

SREL2: 
FNflni : 

IS: 



000403 




2S: 

3S: 
4$: 

5S: 



.S8TTL DEVICE SETUP ROUTirC, 

CLR -(SP) 

BR OVSET 

flOV PC.-(SP) 

flOV (PC)*,R5 

.UORO INOEV 

nOV RELCNT.-(SP) 

nov toevTfa.RO 

fiOO (PO^.RO 

.UORD 0 

flOV (RO^RO 

flOD (SP).RO 

JSR PC.(ftO) 

ADD (S^).RO 

nov R0,$ftEL742 

JSR RS.BflOVE 

INBOOT.OPEN, IFNPM-INBOOT 

NOV SREt.7,R3 

flOV iq-.R! 

«0D (SP5,(R3)+ 

DEC Rl 

BNE 5S 

flOO (5P)*,XDR(R5) 

TST (SP)* 

BEQ RESR7P 

JSR R5,BCLE«R 
IFN«n,40,6. 

JSR R4.SPV04 

nov KB^TR.RO 

nov IIFN«fl,R4 

nov *b.R3 

nova (R0)*.R2 

CMPB R2,f'* 

BNE IS 

nov R5,XFLnOD(RS) 

BR 3S 

CnPB R2,I15 

BEQ 2S 

CHPB R2.iH0 

BEG FNAni 

CnPB R2,i'0 

BLO 2S 

CnPB R2, t'Z 

BLOS 3S 

DEC RO 

BR 5S 

HOVB R2,(R4)+ 

DEC R3 

BGT FNAni 

CMP R3 . 16 

BEQ iH(/mn 

nov RO.KBPTR 

BR RE§R7 



INPU* INIT ROUTIf€ 
; INDICATE NO N«nE. 

jINDICfiTE NftME NEEDED. 
; INPUT DOS AOOR TO R5. 



PUT RELOC FACTOR IN STACK. 

GET DEVICE TABLE ADOR. 

ADD OFFSET FOR DESIRED DEVICE. 

HOLDS CURRENT DRIVE • TIMES 2. 

GET DEVICE SET UP ADOR. 

CORRECT FOR RELOCATION. 

GO SET UP DEVICE. 

CORRECT PARAtI ADOR FOR RELOCATION. 

nOVE DEVICE INFO TO DDB. 
DEST, SOURCE, COUNT. 

NUMBER OF ENTRIES TO RELOCATE. 

RELOCATE ENTRY. 

DONE' 

BR IF NOT. 

ANOTHER ONE NEEDS IT. 
NAME NEEDED'* 
BR IF NOT. 

CLEAR NAME AREA TO BLANKS 



;SAVE REGS 0-4 

•KYBO BUFFER POINTER TO RO. 

UP TO 6 DIGITS FOR NAME 
GET A CHARACTER. 
QUESTION MARK' 
BR IF NOT. 

SET FILE nODE INDICATOR. 
CR' 

BR IF YES. 
SPACE' 
BR IF YES. 
LESS THAN 0' 

BR IF YES. NOT ALPHA-NUMERIC 
HIGHER THAN Z' 

BR IF NOT. ALPHA-NUMERIC CH^ifi, 

MOVE POINTER BACK ONE. 

GO CLEAN UP. 

STORE THE CHARACTER. 

DONE 6 CHARS' 

BR IF NOT. 

ANY NAME CHARS' 

BR IF NONE. ERROR. 

SAVE STRING POINTER. 

RESTORE REGS. DO RTS PC 



N02 



TTOP - XXOP TRTV nOWlTOR n-U-OrtOUF-B HflCYU 27(732) Ol-fWR-77 10:3H PftGE 1-25 

OnOUFB.PlI DEVICE SETUP ROUTINE, INPUT INIT ROUTIt€ SEi 0C2fc 

(1) 001672' OOMSb? I7b212 INVNAM: JSR RS.COflCOl :REPORT INVALID NAME. 

(1) 001676' 0S7111 0M7126 046501 .ASCIZ 'INVNAM' 

(1) 001704' OOP 

(1) 001706* .EVEN 



B03 



^ROP - XXDP 



TR7«JF flOhlTOR H-li-DtlOUF-B llftCYil 27(732) 
REPOL. REflOC. AND BKREAD SUBROUTI?€S. 
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S£& 0027 



:i: 
i: 
:i: 
:i: 
:i; 
:i: 
;i: 
i: 
:i: 
. i i 
:i; 
:i: 
:i: 
:i: 
:i; 
:i; 
:i; 
:i: 
;i: 
:i: 
;i: 
:i: 
;i: 
:i: 

[i: 

(21 
(2) 

;i] 
:i: 
:i: 
:i] 
:i: 



gOlTOb' QISTQC 
001712 • 012701 



00172b* 
001732' 
001734' 
0017M0' 
0017%' 



01b70S 
10S2C>7 
00S7&5 
00143& 
00S7&7 
016765 
000207 



0017SO' 016765 
001756' 001773 
001760' 062716 



001764' 
001770' 
001776' 
00200H' 
00S012' 
002012' 
002016' 



00H767 
016765 
012765 
016565 

004%7 
004775 



002022' 

002022 ' 004767 

002026' 000207 

002030' 004567 

002034' 047505 



000160 
000776 



177530 
002S75 
00C006 

000024 

001434 000006 
001424 000006 



000076 
000106 
000400 
000012 

000022 
177774 



000024 



176054 
000115 



000004 
000002 
000010 



.S8TTL REflOL. REftDC. AND BKREfiO SUBROUTINES. 
:SUB TO REM) ONE BLOCK. SET AND Rl POINTERS. 
iTOflTfi: NOV fBUF2.ftO i9DW Or 1ST DATA BYTE. 

NOV ISIO.IRI -SET BYTE COUNT IN Rl. 

SUSROUTIfC TO READ LINKED FILE BLOCK INTO BUF 



ftEfiOL: 



READLl; 



NOV 
INCe 
TST 
BEQ 
JSR 
NOV 
RTS 



SIOOB.RS 
PIPFLft 



XDT(R5) 

^READ 
bUF,XDT(R5) 
PC 



:SUe TO INPUT/OUTPUT NEXT BLOCK. 
ftXTBLK:: NOV BUF,XDT(R5) 

BEQ REflOLl 

ADD 12, (SP) 



:SUBROUTINE 
6KREAD:: 

NOV 

BKROO: nOV 

READBK:: 

XYBK: 

JSR 
JSR 



TO READ A BLXK INTO BUF. 
JSR PC.CLRBUF 
SBUF.XBA(R$) 
t256.,XUC(R5) 
NOV XR0(RS),XC0(R5) 

RS,SAV04 
PC!aXSV(R5) 



RESR7:: 
RESR7A: 
EOnERR: : 



JSR 
RTS 



.ASCIZ 
• EVEN 



PC,RST04 
PC 

JSR 
'EON' 



R5,C0nC01 



POINT TO INPUT DOB. 
SET PIP NODE. 
LAST BLOCK' 
BR IF YES. ERROR. 
READ BLOCK. 

SAVE NEXT BLOCK ADDRESS. 
DONE. RETURN. 



:G£1 BLOCK NUNBER. 
;IF 0. n6 NORE. ERROR RETURN. 
•SET FOR NORNAL RETURN. 

; CLEAR THE BUFFER 1ST. 
SET READ ADDRESS. 
SET UORO COUNT. 
SET READ CONNAND. 



;SAVE REGS 0-4 
•DO IT. 



; RESTORE REGS 0-4 
•RETURN. 

; REPORT END OF NEDIUN ERROR. 



C03 



TROP - XXOP TR?*- iOHITOR H-ll-DflOUF-B HACY11 27(732) Ol-MflR-77 10:3M PPGE 1-27 
DfWUFB. PU UTILITY SUBROUTIfCS 



002040- 0103% 
0102% 
0101% 
0100% 
010M07 



002052 ' 012t)OS 
U020S4' 012&00 
00205&' 012b01 
0020b0' 012(>02 
0Q20b2' Q12&03 
00206H' 00020H 



SflVOM: 



.SBTTL UTILITY SUBROUTINES 



WOV 
MOV 

nov 

MOV 

nov 



RSTOH:; MOV 

nov 



nov 
nov 
nov 

RTS 



R3,-(SP) 
R2.-(SP) 
R1,-(SP) 
RO,-(SP) 
RH.PC 



(SP)+,R4 
(SP)+,RO 
(SP)+,R1 
(SP)+,R2 
(SP)+,R3 
R4 



SPVE R3 
SAVE R2 
SAVE Rl 
SA^E RO 

R5 IS ALREADY SAVED 



; RETURN ADDRESS 
; RESTORE RO 
;R1 
;R2 

; RESTORE R4 AND RETURN 



'ROP - XXOP TR7SF MONITOR f1-ll-0f10UF-B 
DflOUFB.Pll UTILITY SUBROUTINES 



8^: 9^ Wm 00077b 



00210H' 012767 
002112' 000H03 



002114' 012767 
002122' 

00|lg' 0OHH67 

002126' C12S00 

002130' 012S01 

0021^' 012S02 

00213H' 000000 

002136' 00S302 

002140' M1375 

002142' 00043S 



112120 000022 



110120 
177712 



000012 



002144' 
002144' 
002150* 
002154' 
002156' 
002160' 
002164' 
002164' 
002170' 
002172' 
002174' 
002176' 
002200' 
002202' 
002204' 
002206' 
002210' 



002212 
002212 



002222 



002236 
002236 



004467 177670 
012700 004506' 
012701 
00452M' 

012702 000011 

122710 000077 

001002 

122021 

000402 

122021 

001003 

005302 

001367 

005725 

000412 



004467 177622 
00HS67 000026 

32 



7t7 177610 



D03 
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SEQ 002S 



:5UB TO aEAR BUFFER. 

tt^;*BUF+2, 0,^10. 
RTS 

S6UF: 



RS.BCLERR 



RTS 
BUF 



PC 



;DEST 

:Exr 



:CftLL BYTE CLEftR SUB. 
,CLWR VftLUE, COUNT 



: ROUTINE TO HOVE BYTE FIELDS. 
aiOVE:: NOV •112120, BMC2 
BR BHCl 



;SET P tlOVB {1)*,(0) + 



ROUTINE TO CLEAR BYTE FIELDS TO SPECIFIC VALUE. 



6CLEAR 
BflCl 



BnC2: 



BI1C3: 



NOV tl 10120, BflC2 ;SET A NOVB R1,)0) + 

JSR R4,SAV04 ;SAVE REGS 0-4 

MOV (55+, RO GET DEST ADDR. 

NOV (5)+,Rl ;CET SOURCE. 

MOV (5)* R2 ;GET COUNT. 
OPEN 

DEC R2 ;DONE' 

BNE Bf1C2 ;BR IF NOT. 

BR UPKNni 



iCMPNAM SUBROUTINE 
CMPNAM:: 

JSR 
MOV 
MOV 



COMPARES TUO S CHARACTER NAMES. UILD CHARS ALLOWED. 



SREL15: 
STXNAM: 
If: 



US: 
2S: 

3S: 



R4.SAV04 
•I^'NAM.RO 
(PC)+,R1 
.WORD TXNAM 
MOV •9.,R2 

CMPB •",(0) 

BNE US 

CMPB (R0)*,(R1)+ 

BR 2S 

CMPB (0)+,(l)+ 

BNE 3S 

DEC R2 

BNE IS 

TST (R5)* 

BR UPKNMl 



SAVE REGS 0-4 

DESIRED NAME ADDRESS. 

ADDR OF NAME UNDER (QUESTION. 

COMPARE UP TO S CHARACTERS. 

CHAR A UILD CHARACTER? 

BR IF NOT. 

POINT TO NEXT CHAR. 

COMPARE CHARACTERS. 
BR IF NOT SAME. 
MATCH. DECREMENT COUNT. 
BR IF NOT DONE YET. 
DONE. SET UP MATCH EXIT. 



; SUBROUTINE TO CONVERT RAD50 FILE NAME TO ASCII. 

R4.SAV04 ;SAyE REGS OrH 

(R|)+,R1 
(R5)+!R0 
R5, UNPACK 
•4,R0 
R5 UPACKl 



UPKNMl: 
RESR5: : 



JSR 
MOV 
MOV 
JSR 



Emm. 

UNPACK 2 UOROS INTO 6 ASCII BYTES. 
POINT TO EXT ADDR. 
UNPACK 1 UORO INTO 3 ASCII BYTES. 



JSR 
RTS 



PC,RST04 
RS 



; RESTORE REGS 0-4 
•DONE. RETURN. 



TROP - XXOP TR7qF nONlTOR fl-ll-DflQUF-B flACYIi 27(732: 
OnOUFB.PU RAOSO UNPACK SUBROUTINE 



E03 

Ol-(1AR-77 10: 3M PfiGE 1-2*3 



012727 
000000 
0022S2' 000403 

gg^' 0127&7 

iScesS' 012704 
002272* OllOOC 



002302' 
002304' 
00230b' 
002310' 
002312' 



002314' 
00231b' 



020012 
103403 
lbl200 
005203 
000773 



10S703 
00140b 
120327 
001407 
003004 
0b2703 
Qb2703 
082703 




0023b2; 



002372' 01016b 
00237b' 000717 



177777 



17777b I777bb 

177552 
177775 

002400' 



000033 



000040 
00001b 
000011 
00X11 



177bb0 



000002 



DpACKI: 
PfiKTMP: 

UNPACK: 
UNPA07: 

UNPAOS: 

U$h^: 
6nPA02: 



.S8TTL R«)50 UNPACK SU8R0UTIf€ 
INPUT: ROsAOR OF nOD40 NUNBER (2 WORDS) 
Rl:^ OF ASCII STRING (b BYTES) 
OUTPUT: Rl POINTS ONE PAST LAST GENERATED CHARACTER 

IF N IS THE n0040 NUNBER. THEN 

N=Cl»50t2+C2»50*t3 
THUS. N/50t2 IS CI AND THE REMAINDER IS C2»50*C3 
THE ftENAfrCER IS DIVIDED BY 50 TO GET C2 ETC 

NOV •-1,(PC)+ ; UNPACK ONE UORD ONLY. 

.UORD 0 

op LiNPAD7 

NOV •-2,PAKTMP ;nAJOR LOOP COUNT 



DnPAOI: 



UNPA03: 
UNPA04: 
UNPA05: 



JSR 
NOV 
NOV 
NOV 
CLR 



R4.SAV04 
•-1R4 
(RO).RO 
.50EfF.R2 



DIVIDE BY COEFFICIENTS 



iSAVE REGS 0-4 
;niNOR LOOP COUNT 
:GET n0040 UORD 

PTR TO COEFFICIENT TABLE 

0 QUOTIENT 



CNP R0.(R2) 
BLO UN^AOl 
SUB (R2),R0 
INC R3 
BR Uftf'A02 
DIVIDE DONE. OUOT IN R3. REMAINDER IN RO 
CONVERT TO AN ASCII CHARACTER 



;DONE UITH DIVIDE 
YES 

NO-SUBTRACT COEFF, 
ADD 1 TO QUOTIENT 



TSTB 
BEQ 
CNPB 
BEQ 
BGT 
ADD 
ADD 
ADO 
AOO 
fWVB 
TST 
INC 
BLT 
NOV 
TST 
INC 
BLT 



R3 
UNPA03 
R3.I33 
UNPADS 
UNPA04 
•40, R3 
lib R3 
111 R3 
illR3 
R3.fRl)+ 
(R^)+ 
R4 

UNPAOb 
(SP),RO 
(R0)+ 
PAKTHP 
UNPAO? 



•BLANK" 

OR 
•A-Z" 



"0-9" 



: DONE— PUT CURRENT Rl 0Nt6 THE STACK 

ijNPAOfl: NOV R1.2(SP) 

BR UPKNMl ;G0 EXIT. 



STORE CHARACTER 
ADVANCE TO NEXT COEFF. 
DONE 3 CHARS? 
NO-DO nORE ^„ ^ ^ 

RESTORE ORIGINAL RO AND 
HOVE TO NEXT UORD 
DONE 2 UORDS 
NO 



0CS^iOa' 003100 OOOOSO 000001 tOEFF: .UORD lbOO.,40.,1. ;40.t2. 40.tl,40.tO 



002Ha>- 012703 
002S10' OOOOIH 



'BOP - XXDP TR7y MONITOR l-ll-DMOUF-B MftCYll 27(735) 
DflQUFB PI I FILL, PUN. AND START ROUTINES 

.SBTTL 
FILL: MOV 
FILLCT: .UORD 
I7bbl4 JSR 
I7b330 JSR 
17£>37t) JSR 
iTbbSH JSR 

BEO 

177750 NOV 
MODI: RTS 



(jus 767 

o8sf|7 
00as32' 001402 
Q02S3M' QlQlb7 
OOPSHO' 000207 



0024M2' 004767 

0024%' 001420 

002450' 006201 

002452' 103404 

002454' 060101 

002456' 010167 

i4' 08456? 

002470' 047111 
002476' 000 
002S00' 



176640 



000454 

175420 
040526 



051104 



rSTPRT ROUTINE 
START: JSR 
3EQ 
RSR 
BCS 
ADO 
MOV 

INVADR: ?SR 

.ASCIZ 




004767 176032 
16767 002000 175360 



005267 175352 
881 4&5 ^"^"^^^ 



RUN: 
RUNIO: 



RUNll: 




000042 IRELiO 



002562' 
002566' 
002572* 



103002 

m\ 

016746 177622 
012746 012345 
000111 



RUN3C: 
RUN40: 



.EVEN 

INCB 

JSR 

JSR 

MOV 

BNF 

INC 

MOV 
MOV 
ASR 
BCC 

^ 

MOV 
MOV 
JMP 



F03 
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SEQ 0031 



FILL, RUN, 

(PC)i,R3 

14 

PCITOA 
PC TAB 
R5, INPUT 
PC.CETNUH 
HO61 

Rl, FILLCT 
PC 



PC.GETNUH 

RUNIO 

Rl 

INVADR 

Rl.Rl 

Rl.STADR 

RUNIO 

RS.COMCOl 

'iftVADR' 



RUNIO 
PC, LOAD 

; ^N .PCOUNT 

PCOUNT 

CHN 

RUN20 

Rl 

RUN30 
•100, Rl 
Rl 

FILLCT, -(SP: 
•12345, -(SP) 
(Rl) 



AND START ROUTINES 

;GET READY TO TYPE FILL COUNT. 

PRINT THAT OUT 
TAB OVER. 
UAIT FOR INPUT 

CONVERT INPUT STRING TO BINARY 
JUST A CR.DO NOTHING 
PUT WHAT ki ENTERED THERE 



FETCH STARTING ADR 
BR IF NO DATA TYPED. 
GOOD ADDRESS' 
BR IF NOT (ODD). 
RESTORE ADDR. 
SAVE ADDR. 
DATA TYPED. 

REPORT INVALID ADDRESS. 



SET RUN INDICATOR. 
DO A L09D 1ST. 
GET SWITCHES. 
GET I COUNT IF ANY. 
BR IF NON ZERO. 
HAKE IT ONE. 
CHAIN MODE' 
BR IF NOT. 

SET RESTART ADDR IN LOC 42. 



BR IF EVEN ADDR. 

ODD ftQQR START AT 200. 

RESTORE THE ADDR. 

PASS THE FILL COUNT. 

INDICATE XXDP MONITOR LOAD. 

START THE PROGRAM. 



TROP - XXOP TR7qF HOW TOR fl-ll-DHOUF-B 
DflOUFB.Pll DIR ROUTINE 



CX12S7M* 0047b7 iThbHZ 

ooooooc 

002bl0' 0OS7b7 OOOOOOG 

0Q2b]M' 0OOH3(> 

00261b' 00S31b 

OOSSaO' 001373 

OOZbZZ' 00572b 

002b2H' OiaTbS OlOQOO 000002 

gSS^' oosobs oooooH 

OQSbS' 00M7b7 177142 

QQ2b42' 012701 000000' 

g02b%' 01 b7% 17b252 

00ab52' 0lb7% 17S2&0 

002b5b' 01 b7% 17bbOH 

002bb2' 000737 



4' Dlb705 I7b5b2 

, ^ ' OlOSbS 17774H 

002t»7M' 004775 177770 
000404 

OlbSbS 177744 00000b 
002710; 000207 

004587 175172 
OCS-'if- 342516 C43130 04blli 
000 
j02726* 



rWCYli 27(732) 



G03 

Ol-flflR-77 10:34 



Pfl5E 1-31 



DIR: 



JSR 
flOV 

FILCNT: .HORO 
JSR 

11: JSR 
BR 

DEC 
BtlE 
TST 

nov 

CLR 
JSR 
flOV 
tlOV 
MOV 
flOV 
BR 



,S8TTL DIR ROUTINE 



PC.SETI 

(P£)■^,-(SP) 
1 

PC.CREUtC 
PC, CRDHDR 
FL^OTF 
(SP) 
IS 

(SP)* 

•f10NCNT,XUCiR5) 

XBA(R5) 

PCTREflOSK 

ItlftDIR.Rl 

KBPTR.-(SP) 

IC0ric3,-(SP) 

CURDRV,-(SP) 

RUrNO 



: INPUT INIT ROUTINE 
INITI: NOV 
NOV 
JSR 
BR 
NOV 
RTS 



2S: 

FLNOTF: 



IIDD6.R5 
R5,Xl§TiK(R5) 
PC,aSRH(R5) 
2f 

X1STBK(R5),XDT(R5) 
PC 



.ASCIZ 
.EVEN 



JSR R5,C0nC01 
•NEXFIL' 



;N0 NMC NEEDED. 

;CET FILE POSITION COUNT. 

REUIND TAPE. 
READ FILE LABEL. 
EOT RETURN. 
GOT TO FILE' 
BR IF NOT. 
RESTORE STOCK. 

4K'S UORTH. STARTING AT LOC 0 
XFR STARTS AT 0. 
DO IT. 

POINT TO NON-RES DIR ROUTINE. 
PASS THE 9jFV^ POINTER. 
PASS nONITOR RESTART AOOR. 
PASS CURRENT DRIVE. 
GO TO NON-RESIDENT DIR ROUTINE. 
VIA RUN40. 



POINT TO INPUT DDI 
DUMMY BLOCK NUMBEI 
FILE SEARCH. 
FILE NOT FOUND. 
1ST BLOCK t TO INDT 
FOUND. RETURN. 

; REPORT FILE NOT FOUND. 



HO 



v3 



OnOUTB Pll wOflC ROL'TIfC. :.9IN OP 



lACYii 2". 732) 
,Bi: FIlES ONLi 



Ci-1flR-77 iO:3M PAi£ 1-32 



,1- 
2 



002732* 




Q03QQ0' 

003002' 

oaioob' 

00X10' 
003012' 

0030m' 

00X1&' 
22' 



0030%' 
003032' 
00303M' 
003040' 
0Q304M' 
00S}H6' 
0030S2' 



003062' 
0030b6' 
003070' 
00M7M' 
003102' 

00310M' 
003110' 

00311b' 
X3122' 
00312M' 
003l2t>' 
0031 X' 
00313M' 
a03l3b' 
003140' 
0O3144' 
X3150' 
003152' 
0031bQ' 
0031&2' 
003lb4' 
003lbb' 
003172' 



004767 
012767 
1127b7 
005767 
001005 

iiSsbs 

004767 

005027 
000000 
004767 
005703 
001772 
005303 
001025 
004767 
105703 
001021 
004767 
010304 
lb2704 
022704 
143J 



431 
767 



010302 
004767 
10001b 
105767 
001743 
004567 
045503 
000 
003104' 
004567 
047520 



' 765 ' ^ 

044502 00155** 

000103 X155C 
175170 

000077 JO 1534 
177720 

177672 
176710 



000154 



000140 

000154 

000004 
000002 

000134 

000102 

177712 

175014 
0%523 



.OAD- 



IS: 

LOflOl: 
L0AD2: 
CHKSUn: 



051105 



L0AD3: 
CKSNER: 



175000 

046106 000117 



020227 000000* 
103370 
110322 
000752 

004767 000052 

010327 

000001 

004767 000016 
105767 1776X 
001347 

112737 000004 000041 

000207 

005301 

100003 

004767 176514 
000773 



JSR 

nov 
novB 

T5T 
Bf€ 

novq 
flOV 

JSP 

JSR 

CLR 

.UORO 

JSR 

TST 

BEQ 

DEC 

Bt€ 

JSR 

TSTB 

BTC 

JSR 

nov 
sua 

CMP 

BEQ 

JSR 

MOV 

JSR 

BPL 

TSTB 

SCO 

JSR 

.flSCIZ 



.EVEN 
POFLOU: JSR 

•ftSCIZ 
.EVEN 
L0AD4: CMP 
BHIS 
flOVB 
BR 

LJriP: JSR 

nov 

STAOR: .UORD 
JSR 
TSTB 
BNE 
MOVB 
RTS 

RDFRAN: DEC 
BPL 
JSR 
BR 



,S8^"'L LOflO ROLlIfC. ;.B:n OP .BIC FILES ONLY 



PC.SETIN 

r8l,IFNftf1+fc 

••C,IFNAH*8. 

CHM 

IS 

R5,JcFLf10C(RS) 

PC.INITI 
PC^GTDfltfl 
(PC)* 
0 

PCROFRflfl 
R3 

LCftD2 
R3 

CKSnER 

PC.RDFRfifl 

R3 

CKSflER 

PC.RD2FRf1 

R3,R4 

•4,R4 

»2,R4 

uhp 

PC.R02FRH 

R3,R2 

PClRDFRfiM 

L0A04 

CHKSUn 

L0fl02 

RS.COHCOl 

'CfcSflER' 



R5.C0MC01 

'p6flo' 

R2.tR6STCK 

PO^LOW 

R3.(R2)* 

L0A03 

PC,RD2FRM 

R3,fPC)+ 

1 

PC.RDFRftn 

CHKSUn 

CKSNER 

t4,at4i 

PC 
Rl 

ROFRMfl 

PC.GTDfiTfl 

RDFRfln 



;SET INPUT DEVICE. NftME NEEDED. 
:SET UP BIC EXTENSION. 

IN CHAIN NODE' 
BR IF YES. 

NO. NfiKE LAST CHftR UlLD. 
INDICATE FILE NODE. 

INIT FOR INPUT. 
INPUT ft BLOCK OF Dfl^fi 
INITIALIZE CHECKSUM 

READ A SYNC HORD 

GOT A NULL"* 

IF YES. KEEP READING. 

SEE IF IT'S A ONE 

IF NOT. LOAD ERROR. 

SYNC IS A WORD 

OF 1 

SO THE SECOND HALF MUST BE 3 

2 BYTES=1 WORD 

ASSUMING NOT DONE YET 

MINUS THE HEADER 

BYTE C0UNT=6' 

IT IS. THE END IS NEAP 

GET l6aD ADR 

INTO R2 

GET A BYTE 

BYTE COUNT NOT ZERO YET 
CHECK SUM SHOULD BE ZERO 
IT IS 

REPORT LOAD ERROR. 



; PROGRAM O'.'ERFLOU MESSAGE. 



PROTECT THE MONITOR 
ABORT 

STORE THE BYTE. 
GO GET MORE 
GET THE JUMP AOR 
STORE IT FOR RAINY DAYS 

:MAKE SURE THE CHECKSUM IS OK 
jUE CHECK EVERY BLOCK 

;5ET LOAD MEDIUM INDICATOR. 
;DONE. GET OUT. 

BYTE COUNT IN BUFFER 
; SOMETHING IN BUFFER 

NO, GET ANOTHER BUFFER FULL 
;D0 THE HOUSE KEEPING 



'RDP - XXOP TR7«JF nOfilTOR f1-ii-Df10UF-B 
DflOUFB.PIl .OflO ROUTINE. :.BINOB 



(1 
1 

il 
(1 
(i 
(1 
1 1 

;i 
a 
. I 



00320b' 
003212' 
00321M' 
00321b* 
0G3222' 
00322b' 
003232" 



i 7757b 
CJ00207 

00M7b7 177750 

010327 

000000 

00H7b7 1777HC 

1103b7 I777b7 

0Ib703 l?77bZ 
000207 



nftCYll S7i72S) 
.BIC FILES ONLY 

RDTRNA: flOVB 
ADO 
DEC 

ROFRMB: RTS 
RD2FRn: JSR 
NOV 

LW: .UORD 
JSR 

novB 

MOV 
RTS 



103 
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(R0)*.R3 

R3.CHKSUn 

RH 

PC 

PC, ROFRftM 
R3,(PC)* 

0 

PC.ROFRfifl 
R3.LTEI1P*I 
LTfnP,R3 
PC 



PICK UP CHR 

DO THE CHECKSUn S'UFf 

LOPO BYTE COUNT 

GET ONE BYTE FIRST 

STORE IT TENPORORIlV 

TEflP STORAGE. 

GET THE OTHER BYTE 

INTO THE HIGH BYTE 

BACK INTO R3 

RETURN 



J03 



TROP - XXDP TR7y flONITOR f1-ll-0H0UF-8 flACYll 27(732) 
DtlOUFB. PI 1 BATCH DEVICE DESCRIPTOR BLOCK (DOB) 



0l-f1«R-77 10: 3M ?fiti£ 1-3M 



SEi X3E 




0032S6' 
0032b0' 
D032B2' 

0032(.S' 
O032bb' 
003270' 
003272- 
00327M' 
00327b' 
003300' 
003302' 
0031CH' 
003306' 
003310' 
003312' 
00331H' 
003316' 
003320' 
003322; 

003330' 
0033 




0033HO' 
0033M2' 
0033H5' 



oooooc 
oooooc 

000000 
000000 
000000 
000000 

000000 000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

oooooc 

000000 
DXOOO 

oooox 

000000 
000000 
000000 
000000 
000000 

gggo oo 

000000 
000000 
000000 
000(X)0 
000000 



000 
000 
000 



000000 
000 
000 
000 

00335H' 



000 
000 
000 



BTCDOB: 

RWCTR: 

RFLHOO: 

RFLCMT: 

RSVrWP: 

RSVCMT: 

RSVBLK: 

RSVNflfl: 

RSVEXT: 

RSVOfiT: 

RSVXX: 

RISTBK: 

R6KLGT: 

RLSTBK: 

RSVUPT: 

RBOOT: 

RDRT: 

R2ER: 

ROLT: 

RCLS: 

RRETR: 

RSRCH: 

RALC: 

RSRV: 

RORV: 

RCri: 

RUC: 

RBA: 

ROT: 

RCOfI: 

RPRC: 

RRPi4C: 

RRBKCT: 

ROIR: 

RNBK: 

RFNflM: 



BTCEND: 



.SBTTL BATCH DEVICE DESCRIPTOR BLOCK IDDB) 



0 
0 
0 
0 
0 
0 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

• BYTE 



0,0,0,0,0,0,0,0,0 



.EVEN 



K03 

TRDP - XXDP TR79F HONITOR fl-U-DMOUF-B flfiCYll 27(732) Ql-riftR-r7 10:3m PftGE 1-35 

onoure.pu batch device descriptor block (dob) seq X3& 



iKEYBOWD BUFFER. 
0033SH' 000012 t^BUf'. .BLKU 10. 

.SBTTL START OF CLEfiRRBLE CORE (DURING INIT) 

003400' CLRBEG: :BEGINNING OF CLERRABLE AREA (DURING INIT) 

inAlN READ - URITE BUFFEft 
] 003400' 000400 6lJF:: .BLKU 2Sb. 



I 
I 



I 



1 



'RDP - XXOP TR7SF flONITOR l-Ii-OMOUF-B flfiCYll 27(732) 
OnO^B.Pll If#^iT DEVICE XSCRIPTOR BLOCK (DOB) 



004400' 
004H02' 
004HO4' 
004MOb' 
OOHMIO' 
004M12' 



OOOOOC 
OOOOOC 
000000 
000000 
000000 
000000 



004Mm' 000000 000000 

004M20' OOOOOC 

00NM22' 000000 

00>H2H' 000000 

gQ4M»' 000000 

004M30' OOOOOC 

004M32' OOOOOC 

00MM3S' 000000 



004M3b' 
00*4440' 
004442* 
004444' 
004446' 
0044SO' 
0044S2' 
004454' 
004456' 
004460' 
004462' 
004462' 
004%4' 
004466' 
004470' 
004470' 
004472' 
004474' 
004476' 
004500' 
004502' 
004504' 
00H506' 
004511' 
004514' 

004520- 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 

000000 
000000 
000000 

000000 
000000 
QOOOOO 
000000 
000000 
000000 
000000 
000 
000 
000 
004520* 



000 
000 
000 



000 
000 
000 



.SBTTL 
0065TR:IN006: 



LD3 

Ol-lflR-77 10:34 PfiGE 1-36 



INPUT DEVICE DESCRIPTOR BLOCK (DDB) 



SEi 0C37 



IWCTR: 
IFLH00: 
IFLCHT: 
ISVNfiP: 
ISVCHT: 
ISVBLK: 



.UORO 

,UORD 
.UORO 
.UORO 
.UORO 



.WORD t 



0 
0 
0 
0 



XUCTR OUTPUT FILE OPEN FLAG 
:XFLf100 FILE nOOE FLAG 
XFLCNT FILE COUMT 
XSVMAP BLK • OF FILE'S flAP BLOCK 
XSVCNT ENTRY « OF CURR FILE IN.UFD 
XSVBLK BLK • or 



CURR FILE*S UFO 



UFD DIRECTORY ENTRY DfiTfl FOR FILE 



ISVNflPI: 
ISVEXT: 
ISVOflT 
ISVXX: 
IISTBK 
IBKLGT 
ILSTBK 
ISVUPT: 



.WORD 
.UORO 
.UORO 
.UORD 
.UORO 
.UORD 
.UORD 
,UORD 



0 
0 
0 
0 
0 
0 



;EN0 OF DIRECTORY ENTRIES 



XSVNftn FILE'S FILENftHE IN RA050 (2 UORDS- 

XSVEXT FILE'S EXTENSION IN RflOSO 

XSVOAT FILE'S CREATION DATE IN DOS FORNA' 

XSVXX (NOT USED') 

XISTBK BLOCK i OF FILE'S FIRST DATA BLK 

XBKLGT • OF BLOCKS IN THE FILE 

XLSTBK BLOCK I OF LAST DATA BLOCK URITTEN 

XSVUPT (NOT USED') 



INBOOT 
INDRT 
INZER 
INOLT 
INCLS 
INETR 
INSRH 
INALC 
INSRV 
INDRV 
INDEV 
INCH 
INUC 
I NBA 
INBLK 
INDT: 
INCOfI 
INPRC 
INPUC 
INBKCT 
INDIR 
INNBK 
IFNAI- 



DDBEND: 



.UORD 
.UORD 
.UORO 
.UORD 
.UORD 
.UORO 
.UORD 
.UORO 
.UORO 
.UORD 

.UORD 
.UORO 
.UORO 

.UORD 
.UORD 
.UORC 
.UORO 
.UORO 
.UORD 
.UORD 
.BYTE 



0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

0 
0 
0 

0 
0 
0 
0 
0 
0 



XBT ADDRESS 

DRT ADDRESS 

ZER ADDRESS 

DLT ADDRESS 

CL5 ADDRESS 

ETR ADDRESS 

5RH ADDRESS 

ALC ADDRESS 

XSV ADDRESS 

XDN CURRENT 
R5 POINTS HERE 

XCn ADDRESS 

XMC CURRENT 

XBA CURRENT 



OF -BOOT" ROUTINE 

OF -DIRECTORY" ROUTINE 

OF "ZERO" ROUTINE 

OF "DELETE" ROUTINE 

OF "CLOSE" ROUTINE 

OF "ENTER" (CREATE) ROUTINE 

OF "LOOKUP" (SEARCH) ROJTINE 

OF "ALLOCATE" ROUTINE 

OF DEVICE DRIVER ROUTINE 

DRIVE (UNIT) NUMBER 

OF DEVICE'S CONflAND REGISTER 
UORD COUNT 

BUS (MENORY) ADDRESS 



XDT 
XCO 
XRD 
XWT 
XSC 
XDR 
XNB 



0,0,0,0,6.0,0.0,0 



CURRENT BLOCK NUMBER 

CURRENT CONMAMO CODE 

READ COnriAND CODE 

URITE COMMAND CODE 

REQUESTED BLOCK COUNT 

ADDRESS OF FIRST DIRECTORY BLK • 

LAST BLOCK • ALLOCATED (NEXT BLK •) 

;XXNAH FILE'S NAME IN ASCII i'i CHAR'S) 



.EVEN 



'ROP - XXOP TR7qF rtOfllTOfi 1-1 i-DflQUF-B MACYIl 27(732) 



OftOUFB.Pll 




00H52H' 
004S27- 
004532' 
00HS3S' 



004535* 
004540* 



iNlTIflLlZflBLE VflRIflBLES^PSCII STRINGS 

.SBTTL 



oooooc 

000 
000 
000 



0M5 

oil 



000 
000 
000 



G0005& 
000 



000 
000 
000 



ICOUNT: .UORD 
RUNIO: 
PIPFLG: 
TXNfln:: 



TXEXT 
CLRENO 



flOOT: 
ATAB: 



.BYTE 
.BYTE 
.BYTE 



M03 

Oi-nftR-77 10:34 



PAGE 1-37 



INITIALIZABLE VARIABLES /ASCI I STRINGS 

0 
0 

.BYTE 0 
0,0.0,0,0,0 

0,0.0 



; ASCI I STRINGS 

.ASCI2 V..' 

.BYTE 11,0 
.EVEN 



W - XXOP TR7SF flOWITOR f1-ll-Df10UF-B HACYU 27(732) 
OnOUFB.Pll COJflflfC. SWITCH, AND DEVICE TflBLES 



N03 
Ol-nftR-77 10:34 



PAGE 1-38 



133S 
133S 




am: 8^ 

00%16' 000214 
00%2H' 002S7M 

00%42' 00f2l2 
00%%' 000546 

oo%5H' vrmi 



00%5(>' 

00%5{i' OOOOOOG 



COHTflB: 



.S8TTL COfmC. 
;M.L COnWVOS Ate 
;N0 ABSREVIflTIONS 



SUITCH^ AND DEVICE TABLES 
CHECKED AGAINST THE QUOTES 
ALLOWED 



. MUKU 


ac. 1 UV 


.UORD 


SETCNT 


.WORD 


CCflCON 


.UORD 


FILL 


.UORD 


START 


.UORD 


LOAD 


.UORD 


RUN 


.UORD 


DOIT 


.UORD 


DIR 


.UORD 


RTSPC 


.UORD 


RTSPC 


.UORD 


GTOK 


.UORD 


-1 



000001 



DEVTAB: 

.UORD 
;END OF SOURCE. 
.END 



SETNTO 



DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 
DISPATCH 



ADDRESS 
ADDRESS 
AOD^SS 
AOOf^SS 
ADDRESS 
>0RE55 



ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 



FOR /QV 
FOR / 
FOR : 
FOR ^ 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 



FOR <15> 
FOR <40> 



SEQ 003S 



BQ4 



TROP - XXDP TR7SF flO«ITOR n-ll-OnOUF-9 HfiCYll 27(732) 01-«*W-77 10: 3H PftGE 2 
OnOUFB.PU CROSS ReFEReiCC ~ USER SYHBOLS 



POOT 
RK 

RLC r 

flLTfK»= 

RLTl = 

flLT2 - 

fiLT3 = 

RRSTRT 

ATRfi 

RTOT 

RTOIl 

ECOCV 

BCOl 

BC02 

BC03 

BCOM 

BC05 

BCOb 

BCD? 

BCLERR 

BEGIN 

BKCT 

BKROO 

BKREAO 

Bnci 

BnC2 

Bnc3 

BtlOVE 

BTCOOe 

BTCEfC 

8UF 

BURST 

CHAIN 

CHRINO 

CHRim 

CHRINS 

CHKSUn 

CHh 

Cf«CNT 

CKSICR 
CKYBO 
CKYBDl 
CLRSEG 

CLRErC 

CLS = 

CMPTIRfl 

COEFF 

COHCOW 

COflCOl 

C0MC02 

C0f1C03 

concos 

COfTTfle 



00HS3SR 
000033 



Q00176 

SoiMis 

QIH5H0R 
OOlMlOR 
QOIMIW 

QQ0302R 

000354R 

00032QR 

000310R 

0003H0R 

0003%R 

002imR G 

001000 

00021bR 

00177bR 

0017b4R G 

002122R 

002134R 

002142R 

00210MR G 

003234R 

003353R 

CX23H00R G 

000130 

OOOHIHR 

0004b2R 

00OM72R 



0001H2R 

00074HR 

OO QTTbR G 

003070R 

00ll3bR 

OOUbOR 

003400R 

0(SOb6R G 

004S35R 

1777t»H 

0Q214HR G 

0a2400R 

OOOmMR 

0001 lOR 

0001b2R 

G00140R 

00017HR 

0045H2R 

c 



005 13331 
1333t« 
13331 
13331 
13331 
13331 
13331 
13331 
005 13331 
005 13331 
005 13331 
13331 
13331 
13331 
13331 
13331 
13331 
13331 
13331 
005 13331 
13331 
005 1333l» 
005 13331 
005 13331 
005 13331 
005 13331* 
005 13331 
005 13331 
005 13331 
005 13331 
005 1333t 
13331 
005 13331 
005 13331 
005 1333t 
005 13331 
005 1333l« 
DOS 13331* 
005 13331* 
005 1333t 
005 13331 
005 13331 
005 13331 
005 13331 
005 13331 
005 13331 
13331 
005 13331 
005 13331 
005 13331 
005 13331 
005 13331 
DOS 1333t 
005 13331 
005 1333» 
i333i 



! 

I 

I 

i 



t 



TROP - XXOP TR7«3F flONITOR f1-ll-Df10lF-B 
DflOUFB.Pll CROSS REFERENCE TABLE - 



CREUnD= 


•««*ffft 


G 




1333c 


CRLF 


000732R 


G 


□OS 


1333t 


CRLFl 






005 


13331 


CftOUTl 


X1002R 




005 


13331 


CR0UT2 


001014R 




005 


13331 


C4JR0RV 


OQl%fcR 




005 


1333f« 




000520R 






1333l« 




Q0037bR 


G 




13331 




fXlOHlSR 






13331 




00Q%2R 






13331 


DwTUP3 


D00HS2R 






13331 


CWTUPM 


OQOHMbR 






13331 


DATUPS 


OCDSOSR 






1333lt 


ooeerc 






005 


13331 


D08STR 


004HOOR 




005 


13331 




n0037«4R 




005 


13331 


CCLfiY 


oooaoaR 


G 


13331 


oevERR 


0012I&R 


G 


005 


13331 


OevTRB 


ao^5(>R 




005 


13331 


DIR 


002S74R 




005 


13331 


DLT = 


ITTThi 






13331 


DOIT 


aoozm 




005 


13331 


DOl 


0002S8R 




005 


13331 


002 


0002(>2R 




005 


13331 


, 003 


oooaasR 




005 


13331 


1 DfiT ' 


i777S£> 






13331 


DVS£T 


001450R 




005 


13331 


E0»CRR 


002030K G 


005 


13331 


ETR - 


I777fafe 






13331 


FHELP 


001457 






13331 


FILCNT 


002(>02R 




005 


13331 


FILL 


(XI240bR 




005 


13331 


FILLCT 


ooasioR 




005 


1333I* 


FiLNflH 


00154MR 




005 


13331 


FLNOTF 


□02712R 


G 


005 


13331 


FfMni 


00157SR 




005 


13331 


fWh3 


0015S6R 




005 


13331 


FSTH0P 


0000&4R 


G 




1333t« 


GETCHR 


0G11&2R 




005 


I333t 


GETCRl 


00120HR 




005 


13331 


G£Tir4 


00102MR 




005 


13331 


GETirc 


001030R 




005 


13331 


GETIOI 


OOlOabR 




005 


13331 


GETI02 


OOllO&R 




005 


13331 


GETI03 


QOllOOR 




005 


13331 


CETIOb 


001070R 




005 


1333t 


:;ETioe 


OOlll&R 




005 


13331 


GETIll 


001112R 




005 


13331 


GETNUn 


ooiaobR 




005 


13331 


QEX02 


ooliabR 




005 


13331 


GEXOM 
1 STOATA 


001132R 




005 


13331 


0017QbR 




005 


13331 


GTNnO 


00137HR 




005 


1333t 


. GTNtll 


C31312R 




005 


13331 


1 CTNUril 


X1402R 




005 


13331 


GTOK 


CI005%R 




005 


13331 



SES OOHl 



DD4 



^RJP - XXDP TR7V flOhlTOR n-ll-OHOUF-B flftCYll 27(732) 01-tl«R-77 10:3H PAGE 2-2 
OflOUFB.Pll CROSS REFERENCE TABLE - USER SYHBOLS 



CTOKK 
CTOKX 
CTOKY 
CTOKl 
CT0K2 

St$m 

GTSU 
IBKLCT 

icourrr 

IFLCNT 

IFUiOO 

iFNAfI 

ILSTBK 

INftLC 

INBP 

ireKCT 

irCLK 

INBOOT 

INCLS 

INCH 

INCOfI 

rrcoe 

IfCCV 
INDIR 
IHDLT 
IHORT 
IfORV 
INDT 
irCTR 
IHIT 
INITI 
IHt€K 
INPRC 
INPUT 
INPWC 
INSRH 
IflSRV 
INVflOR 
INVCfC 
INVNfir 
fUC 
N2ER 
SVBLK 
SVCNT 
SVOAT 
SVEXT 

svnfy> 
svNRn 

SVUPT 

svxx 

TOP 

TOfll 

T0A2 

:toa3 

IWCTP 



0OOS52R 
OOOSCiOF! 
CK)Qbl2P 
nOOSbHR 
»70R 




QOH520R 



004M32R 

otmsHR 

UOHHfabR 
OOHSCXIR 
004M70R 
0OMH3bfi 
OO+MMfcR 

0OHH72R 

004M00R 

004%2R 

0O45(32R 

OOSHMHR 

QOHMMOR 

OOSHfcOR 

OCHMTOR 

0CH450R 

000070 

OOabfcHR 

00HS04R 

004M74R 

00102MR 

OOMMTbR 

004M52R 

004H5bR 

002%HR 

Q00b24R G 

001b72R 

00H%4R 

00W42R 

OOHMieR 

OOHMIOR 

004M22R 

004420R 

004H06R 

OtWlHR 

0CHH34R 

004M2HR 

001302R 
00127MR 
OOHHOOR 



005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 

005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 



3331 



333i« 
3331 



333 
3331 
3331 
3331 
3331 
3331 
3331 
3331 
333t 
3331 
3331 
3331 
3331 
3331 
3331 
3331 



3331 
3331 
3331 
3331 



333- 
3331 
3331 
3331 

33: 



3331 
3331 
3331 
3331 
3331 
3331 
3331 
3331 
3331 
3331 
33 



3331 
3331 
3331 
3331 
3331 
3331 
3331 



I 

t* 
I 



I 



EQ4 



TROP - XXOP TR7qF HCWITOR n-U-DflOUF-B NflCYIl 27(732) 01-f«R-77 10:34 PflGE 2-3 
OnOUFB.Pll CROSS REFERENCE TABLE - USER SYMBOLS 



IlSTBIt 

ICfiPTR 

KBUF 

KCOOE 

KTKB 

KTKS 

LiniT 

LJW> 

LOAD 

LOACl 

L0A02 

L0«D3 

LO(€H 

LPB 

LPS 

LPSH 

LTEHP 

res 
rcso 

ftSl 
HMINST 

nool 

HOrChfT: 

nouT 

nREC 
flTBfl = 

nrcn - 

HTST : 
flTUC : 

NOCORE 

r«oiR 

NRCTSU 

NXTBLK 
OPEN ! 
PACK 
PRKTFf 

PC : 

PCOUNT 

PIPFLC 

POFLOW 

PRTY7 : 

PS 

PSH 

QVtlOOE 

RRLC 

RBA 

R8KLGT 
RBOOT 
RCKSn 
RCKSlf^ 

RCLS 

RCn 

RCOrt 



004H2bP 
00il2Hfi 
0033SMR 

aoi23t> 

Q0272SR 
002772R 
002776fi 
0030S4fi 

000142R 

000140R 

000104R 

003214R 

00Q6H2R G 

0OQ654R 

00002M 

0015% 

0Q24H0R 

010000 

OOlOOOR 

OOlOOMR 

184006 

lb400C 

164002 

16H00H 

001330 

001434 

OOOOOQR 

000074R 

000144R 

001750R G 



0022SOR 
•4]00007 
000102R 
004S23R G 
003104R 
0 0034 0 
177776 
177776 
000217R 
003310R 
003322R 
003264R 
003272R 
000370R 
000366R 
003302R 
003316R 
003326P 



OOS 13331 
OOS I333t« 
005 13331 

13331 
005 13331 
005 13331 

13331 

005 13331 
005 13331 
OOS 13331 
005 I333t 
005 1333« 
13331 
I333t 
13331 
005 1333t« 
005 13331 
005 13331 
005 13331 
1333t 
13331 
005 13331 
13331 
005 I333t« 
005 1333t« 
1333M 
13331* 
1333H 
1333H 
13331 
13331 
13331 
1333t 
1333M 
005 13331 
13331 
1333t 
005 I333t» 
13331* 
005 13331* 
005 1333t* 
OOS 13331 
13331 
13331 
13331 
005 13331* 
005 13331 
005 1333t 
005 13331 
005 13331 
005 13331* 
005 13331 
005 13331 
005 1333t 
005 13331 



SE6 00H3 



F04 



'ROP XXOP nONFOR fl-ll-DflOUF-B MftCYll 27(732) 01-n«R-77 10: 3M PftGE 2-^ 

DW^B PI I CROSS REFERENCE TftBLE — USER SYflBOLS 



ROfRflfl 

rofrtc 

RDIR 
RDLT 
RORT 
RORV 
RDT 

RD2rRn 

REAOeK 

REflOL 
REAOLl 
REfCY 
REED 

RELcrrr 

RESR5 

RESR7 

RESR7ft 

RESTRT 

RFLCffT 

RFLMOO 

RFNftfl 

RLSTBC 

RTCK 

RPRC 

RRBKCT 

RRETR 

RRPUC 

RSRCH 

RSRV 

RSTRTl 

RSTOH 

RSVBLX 

RSVCNT 

RSVWT 

RSVEXT 

RSvnpp 
Rsvmn 

RSVUPT 

RSVXX 

RTN 

RTSPC 

RUM 

RUNBUF 

RUhIO 

RUNIO 

RUhll 

RUN20 

RUN30 

RUN40 

RUC 

RMCTR 

RUNO 

R2£R 

RO 

Rl 



CX}31&2P 
00317HR 
00320HR 



003300R 
00327MR 
00331HR 
4R 



OOaOOMR G 

00171bR 

OOlTMfeR 




002022R C 

ooaosbR 

Q00050R G 
0032MOR 

ooaaabR 

0033S2R 

003340R 
Q03330R 
00333Sfi 
003304R 
003332R 
00330bR 
003312R 



R 



0Q20S2R G 

0032%R 

00324Hfl 

00325£>R 

0032S4R 

003242R 

Q032S0R 

Q03270R 

0032bOR 

000310 

000212R 

002500R 

OOOOOOR 

Q04S22R 

002510R 

002S30R 

002S4Hfi 

0025b0R 

002Sb2R 

003320R 

003234R 

000112 

00327faR 

'/.OOOOOO 

•'.000001 



005 
00£ 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 



005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
005 
OOS 
005 
005 
005 
005 
005 
005 
005 
005 
OOS 
005 
005 
005 

OOS 
005 
003 
005 
005 
005 
005 
005 
005 
005 
005 

005 



13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

1333a 

13331 

1333t 

13331 

13331 

1333M 

13331 

13331 

1333t 

13331 

13331 

13331 

13331 

13331 

1333M 

13331 

13331 

1333t 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

13331 

1333t« 

13331 

13331 

13331 

13331 

13331 

1333t 

13331 

1333t 

13331 

1333l« 

13331* 



t 

i 



'ROP - XXOP TR7SF lONHOR fl-ll-OHOUF-B nftCYll 27(732) 
DflQLFB.Pll CROSS REFERENCE TRBLE ~ USER SYHBOLS 



RISTBK 

R2 

R3 

PM 

R5 
Rb 

RbSTCK 

SAVOM 

5E7CNT 

SETFST 

S£TI 

S£TIN 

SETHTD: 

5ET0V 

SP 

5PB0T 

SRH 

STflOR 

ST«RT 

TAB 

TROP : 
TflPERR 
TROP : 
TXEXT 

LH>flCK 
UNPROl 
llff>A02 
UN>R03 

urf>ROH 

UNPflOS 
UNPR06 
UNPR07 
UNPflOB 
UNPROS 
UPRCKl 
UPKNfln 
UPWfll 



0032b2P 
-'^000002 

:XQ00003 
:'/4X)Q00H 

OOOOQOP 
0Q2OM0R C 
00OS30R 

001442R 
00l4%fi 

: ««««*« G 

00O5H2R 

'/■000006 
QOgOSOR 

: 177770 
00313bR 
Q02HH2R 
0007S2R G 

: ftM«M U 

00030b 
000000 
0O4532R 
00W« C 
002254R G 
002314R 




ggyHR 
00230GR 
0022b2R 
0Q2372R 
0022688 

>12R G 




s 1777S4 



XDT 

XFLCfiT 
XFLHOOs 
XLSTBK: 

yfm ' 

XSV r 
XSVBLKs 
XSVCNTr 
XSVDRTs 



000020 
= 000006 
177722 
177720 
177750 




177^^ 
177730 
177726 
177740 



005 1333 
1333 
1333 
1333 
1333 
1333 
005 1333 
005 1333 
005 1333 
1333 
005 1333 
005 1333 
1333 
005 1333 
1333 
005 1333 
1333 
005 1333 
005 1333 
005 1333 
1333 
1333 
1253 
005 1333 
005 1333 
005 1333 
005 1333 
005 1333 
005 1333 
005 1333 
005 1333 
005 1333 
005 1333 
005 1333 
005 13331 
005 1333 
005 1333 
005 1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
1333 



1333 



G04 
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SEQ 0045 



HOH 
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XSV 
XS\ 



XSVWRHs 
XSVUPTs 
XSVXX r 
XUC X 
XUCTR r 
»iT r 
XXNRR z 
XYBK 
XlSTBKs 
YES 

ZER s 

SAPR 

SAUC 



177732 
1777S2 
1777M2 




12R 
17774M 
a0131bR 
1777M 



tBUF2 

sconc3 
iocc 

FEB 

siooe 

(JUL 
SJUN 
ILITTB 

SHAY 
INOV 
SOCT 

SfCLlO 
SRELll 
SREL12 

tRai3 

SREL2 

tP£L3 

SREL4 

SREL5 

SRELt) 

IREL7 

SSEP 

ITPNfll 

STXNPn 




_jl02R G 
002072R G 
gOOl3W 
Q00702R 

a01452R G 
Q00600R 

002622 

OOOblMP 

0OOb3QR 




0Q0Q52P 
000372R 
0003H0R 
00227MR 
0021S0R 

ISbbR 
001550R 
000332R 
00Q270R 
0002S0R 
001510R 



OOaiSbR C 
00Hb£>0R 



1 

1. _ 
1333 
1333 
1333 
1333 
1333 
1333 
1333 
DOS 1333 
1333 
DOS 1333 
1333 
1333 
1333 
005 1333 
005 1333 
005 1333 
1333 
1333 
005 1333 
1333 
1333 
1333 
1333 
1333 
1333 

005 1^ 

005 1333 

005 1333 

005 1333 

005 13331 

005 1333 

005 1333 

005 1333 

005 1333 

005 1333 

005 1333 

005 1333 

005 1333 

005 1333 
1333 
1333 

005 1333 

005 1333 



SE4 

I 



104 
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OnOUTB.Pll CROSS REFERENCE TfiBLE — nftCRO NflHES 

INITI 41i 1333 

REROL 501 1333 

I^^C 26t 1333 

RESR5 2<)t 1333 

RESR7 321 1333 



RO/TIM S3l 

SAVREC 231 1333 

StBN 471 

SETIN 44t 1333 

TOKN 51 1333 

TOKNS 141 1333 

Urf>ACK 3SI 1333 

UPRCKl 381 1333 

XDPHON lOgi 1333 

teOOT 12S4I 1333 

fIDEN'' b3l 1333 



J04 
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OfKJUFB.Pll CROSS REFERENCE TABLE - PERHflMENT SYWOLS SE- O.HB 

000 1333 

ASL 1333 

1333 

8CC 1333 

BCS 1333 

BEQ 1333 

BGE 1333 

BCT 1333 

BHI 1333 

BHIS 1333 

BIC 1333 

BICB 1333 

BIS 1333 

Br 1333 

BLE 1333 

BLO 1333 

BlOS 1333 

BLT 1333 

Bfll 1333 

Br€ 1333 

BPL 1333 

BR 1333 

CLR 1333 

CLRB 1333 

Cfff' 1333 

CMPB 1333 

DEC 1333 

HALT 1333 

INC 1333 

INC8 1333 

JHP 1333 

JSR 1333 

nOV 1333 

flOVB 1333 

NOP 1333 

ROL 1333 

RTI 1333 

RTS 1333 

SUB 1333 

SMB 1333 

TST 1333 

'STB 1333 

ftSCII 1333 

.ftSCIZ 1333 

ASECT 1333 

.BLKW 1333 

.BYTE 1333 

C5ECT 1333 

•END 1335 

.ENDC 1332 1333 

.£\tH 1333 

GLOfiL 1333 

IPDT 1253 1333 

Iff 1333 

I"^' 1333 

::r 1333 



K04 
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onouFe.pii CROSS kfekhci table — PERrwrcNT syrbols 



.LIIIT 

.'fii^RC 

.fClST 

.PflGE 

.REfl 

.S8TTL 
"ITL£ 
WORD 



1333 



1254 

I 

1333 
1333 
1333 
1333 
1333 



4 
14 



1333 



26 



2S 



32 



35 



38 



41 



44 



RUNBUF 



0U5706 
000710 
DOOODC 
001000 
000000 
0046b0 



000 
001 
002 
003 
OOM 
005 



ERRORS DETECTED: 0 

DEFffJLT GLOBALS QENERflTED: 0 

• TRDPH, TROPfl. LST/CRF=0f10UFB. PI 1 /EG: TRDP 
RUM-Tlte: 3 4 .6 SECOf©S 
RUN-TIfC RfiTIP: 2<K/<3s32.5 
CORE USED: IbK (31 PAGES) 



I 



SE& 0C4<3 



'0~«9f - vxop TR7qF MODULE REflO-OHLV 



iOOO 



OOOOOQ 
000001 
000002 
000003 
OOOOOM 
000005 

ooooob 

000006 
000007 
17777b 
000000 
00020C 
lOOOOC 
17771b 
177720 
177722 
17772S 
17772b 
177730 
177732 
17773b 
177740 
177742 
177744 
17774b 
177750 
177752 
177754 
17775b 
I777b0 
I777t£ 
1777b4 
i777bb 
17777Q 
177772 
17777H 
17777b 
000000 
000002 
000004 
00000b 

000010 
000012 
000014 
00001b 
000020 
000022 
000024 



nflCYll 27(732) 



.LIST 
.NLIST 
.TITLE 
.SBTTL 



L04 
Ol-»1«R-77 iC:27 



PAGE 1 



flE 

HC.flD.CNO 
TR>y - 
EQUATES 
RC 
Rl 
R2 
R3 
R4 
R5 
Rb 
SP 
PC 
PS 
OPEN 
DONE 
ERROR 
XWCTR 
XFLHOD 
XFLCNT 
XSVMftP 
XSVCNT 
XSVBLK 
XSVNfiM 
XSVEXT 
XSVDAT 
XSVXX 
XISTBK 
XBKLGT 
XLSTBK 
XSVUPT 
XBT 
DRT 
ZER 
OLT 
CLS 
ETR 
SRH 
ALC 

xsv 

XDN 
XCfl 

xuc 

XBA 
XDT 
XCO 
XRO 
XMT 
XBC 
XDR 
XNB 
XXNAM 



INDEX TO WRITE COUNTER. 
INDEX TO FILE NODE INDICATOR 
INDEX TO FILE COUNT 



PHONY UFD BLOCK POINTERS 



,TOC 

ixDP TR79F MODULE READ-ONLY 



y.i 
y.2 
y.2 

YM 
Y.S 

xb 
y.b 

YJ 

17777b 
0 

200 
IXOOD 
-b2 
-bO 
-5b 
-54 
-52 
-50 
-% 
-42 
-40 
-3b 
-34 
-32 

:-30 
:-2b 
-24 
-22 
-20 
-lb 
-14 
-12 
-10 
'b 
-4 
-2 

:0 

2 
4 
b 
10 
12 
14 

lb 

20 
22 
24 



INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
DRIVE 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 
INDEX 



TO BOOT ROUTINE. 

TO DIRECTORY ROUTINE 

TO ZERO ROUTINE 

TO DELETE ROUTINE 

TO CLOSE ROUTINE 

TO ENTER ROUTINE 

TO LOKUP ROUTINE 

TO ALLOCATE ROUTINE 

TO SERVICE ROUTINE (DRIVER) 

NUMBER INDEX 

TO CONNAND REGISTER 

TO WORD COUNT 

TO BUS ADDRESS 

TO BLOCK NUMBER 

TO COMMAND 

TO READ COMMAND 

TO WRITE COMMAND 

TO REQUESTED BLOCK COUNT 

TO 1ST DIR BLOCK POINTER. 

TO LAST BLOCK • ALLOCATED. 

TO ASCII NAME IN DDB 



MD4 



TR7<JF - XXOP TH7SF flOOULE READ-ONLY rWCYll 
OflQUFB.Pia GLOBAL REFERENCE DEFINITIONS 



27(732) Ql-nfiR-77 10:27 ofiGE 1-1 



.SBTTL GLOBPL REFERENCE DEFINITIONS 
;EXTERNftL GLOBAL DEFINITIONS 

.GLOBL BflOVE.BCLEAR.CHROUT.CRLF 

.GLOBL CLRBUF.CMPNAM 

.GLOBL DEVERR.ITOfl.riES 

-GLOBL NXTBLKJXNAN.RELCNT 

. GLOBL FLNOTF ' READBK 

.aOBL RSTOH.SavOM, UNPACK, UPflCKl 

.GLOBL EOfCRA.BKREAD 

.GLOBL BUF. DELAY 

.GLOBL PIP^LG.UPKNAM.IFLMOD 

. GLOBL STXNAM . SBUF2 , MUF 

.GLOBL RESR7.1NVCMD 

.GLOBL BCDCV 

.GLOBL DATUPK 

.GLOBL TAB 

.GLOBL ITPNNl 

.GLOBL FSTHOD 



t 



SEO 30S1 



I 



I 



TRZqF - KXDP TR79F MODULE REflO-ONl.Y 
OnOUFB.PiS Pfi9Af€TER TABLE 



100 



1002 



1003 
lOOH 
1005 
100b 
1007 



OOOOQO' 
000002' 
OOOOOH' 



i; 

0OO012' 
QOOOIM' 
000016' 
CX30020' 
000022' 
{X)002M' 
0OOQ2b' 



TOW 



00003N' 
00003b' 
OOOOSO' 
000042' 
00004M' 
00004b' 
000050' 



000050' 
000052' 
000054' 

(iQQQSb' 

OOOOU' 
0OOQb4' 
OOOObb' 



OOOOOOC 
OOOOOC' 
OOOOOOG 



aOOQOOG 

000040' 

OOOOOOG 

000570' 

000000 

IbHOOO 

000000 

000000 

000000 

000000 

000005 

000003 

000000 

000050' 

000000 



177777 

00010b' 

000142' 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000352' 

OOOOOOG 



000070' lb4002 

000072' IbHOOO 

000074' lb4004 

00007b' lb400b 



fWCYU 27(732) 



PPRfVI: 



UNIT: 

CMOREG: 

UCOUNT: 

BUSflOR: 

BLOCK: 

COND: 

READ: 

WRITE: 

RBKCT: 

DIRPTR: 

LSTBLK: 

PPREND: 



-SBTTL 
INVCHD 
DIRECT 
INVCflO 
INVCMD 
INVCMO 
INVCMD 
LOOKUP 
INVCMD 
DRIVER 
0 

IbMOOO 

0 

0 

0 

0 

5 

3 

0 

OIRBLK 
0 



N04 

Ol-MflR-77 10:27 
PMVtfCTEP TABLE 



PAGE 1-2 



ild 0052 



UNIT I 

COMMAND REGISTER ADDR 

WORD COUNT 

BUS ADDRESS 

BLOCK NUMBER 

COMHAt€ 

READ COMMAND 

WRITE COMMAND 

REQUESTED BLOCK COUNT 

POINTS TO 1ST DIR BLOCK. 

LAST BLOCK I ALLOCATED 



PARAMETER TABLE FOR MTCOM SECTION. 



6IRBLK: -1 





REWIND 




SKIPR 




INVCMD 




INVCMD 




INVCMO 




ROHOR 




INVCMD 


HTST: 


lb4002 


MTCM: 


154000 


MTUC: 


lb4004 


MTBA: 


lb400b 



1 INDICATES SEQUENTIAL FILE DEVICE. 
POINTS TO REWIND ROUTINE. 
POINTS TO SKIP REVERSE BLOCK ROUTINE. 
CLRHOR POINTER. 
WRTHOR POINTER. 
WRTEOF POINTER. 
POINTS TO RDHDR ROUTINE. 
WEOT POINTER 



TRTV - XXOP 
OnOUFB.PlS 



R7"JF nOOULC REflO-ONL> 
SETHT ROUTINE 



BOB 
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1010 OOOIX* 

1012 000100 ' 0127X 

1013 OOOIOS' 000207 
lOlM 



OOOOOC* 



SETMTO: 



nov 

RTS 



SEa 00S3 



.SBTTL SETHT ROUTINE 



•PRRAH.RO 

PC 



; POINT TO PARW1 TftBLE. 
;DON£. RETURN. 



OflQUFB.Pia flWi^flPE ROUTirCS 



NftCYU 27(732) 



CQ5 

01-HflR-77 10:27 PAGE l-^ 



S£i 0C54 



1C16 
1017 

loie 

ion 

lOPC 

iSj 

-■"^ 

.DX 
i031 
i03c 
1Q33 
103M 
1035 
i03b 
1037 
1053 
lOSM 
1055 
1056 
1057 
1058 
1059 
lObO 
lObl 
10b2 
10b3 
lObM 
lObS 
1071 
1072 
1073 
107M 
1075 
107S 
1077 
107B 
107S 
1080 
1061 
1082 
1083 
108M 
1085 

loee 

1087 
1088 
lOB^ 
10% 
10<J1 



00010b' 
000112' 
000120' 

TO0132' 

ooai3M' 

000140' 
OOOIS?' 
OOClHfe' 
Q00152' 
00015b' 
OOOlhM' 
TOOibb" 
000172' 
OOO'TM' 
00017b' 
000202' 
00020M' 
000210' 
00021H' 



032777 
001005 



ocwo 

00H7b7 
000207 
0OM7b7 



0l27b5 
000423 
012703 
000420 
005003 
llb503 
000303 
010377 
0047b7 
000207 



00021b' 0127b7 
00022S' Ohh7b7 
000232' 000207 



000234' 
00Q2S2' 
gOK% ' 
0002S2' 
000260' 



00027b' 



000310' 
00^12' 
000320' 
0OO322' 



00033b' 
000340' 
000344' 
0003%' 



0ib577 
005477 
0047b7 
01b777 
005077 
010377 
032777 
001774 
100413 
032777 
001774 
032777 
001402 
0047b7 
000207 
032777 
001403 
I052b7 
00075b 
0001b7 



C 177750 



000377 
000021 

0OOQ2b 

00002b 
000377 
QOOOU 

000001 000002 
000005 



R£UIND: 



IS: 

5KIPR: 

URTIDB: 
flTDRV: 



000013 

I77bt£ 
OOOObb 



000002' 000000' TRBSET: 
OOOOOCG 000000' 



000002 177b32 flTOO: 

i77b2b 

177744 

000000' 177blb 
I77b04 IS: 
I77b02 

100200 177574 nTDOl: 



000001 1775bO nTD02: 
000040 177550 
177b40 

IS: 

000010 177532 nTERR: 
000000' 

OOOOOOG MTERl: 



.SBTTL 

JSR 

BIT 

Brc 

BIC 
BIS 
BR 

JSR 
RTS 
JSR 
BIC 
BIS 

nov 

BR 

nov 

BR 
CLR 
MOVB 
SUAB 

nov 

JSR 
RTS 



nov 

ADO 
RTS 



nov 

MEG 

JSR 

nov 

CLR 
HOV 
BIT 
BEQ 

Bni 

BIT 

BEQ 

BIT 

BEQ 

JSR 

RTS 

BIT 

BEQ 

INCB 

BR 

jnp 



WWTflPE ROUTIMES 
PC.HTORV 
iHft.aPTST 
IS 

•377.R3 
I21.A3 

nioo 

PC.URTIOB 
PC 

PCJ1TDRV 

111, A3 
ll.XWCCRS) 

ht6o 

•5.R3 ;U/R lOB 

HTftO ; 
R3 

XR0+1(R5),R3 
R3 

R3,aMTCn 
PC,HTD02 
PC 



•TRBUF.TRBF 
RELCNT.TRBF 
PC 



XUC(R5).9nTUC 

affTuc 

PC.TRBSET 
TRftF.anTBfl 

anTst 
R3.a«Tcn 

•EftflOR+oof€,anTcn 

nTDOl 
HTERR 
•l.aflTST 

nT6o2 
•40,anTST 

IS 

PC.HRTIDB 
PC 

•lO.SnTST 

nTEfti 

EOFSEN 

nTD02 

DEVERR 



SELECT DRIVE 
fiT LOAD PIONT 
BRftMCH IF YES 
CLERR OUT GARBAGE 
REMIND 

CHCK FOR DONE 
GO URITE IDB 
RETURN 
SELECT DRIVE 
CLEAR OUT GARBAGE 
BACK SPACE 



;GET DRIVE NUHBER 
;PUT IN LEFT HALF 
SELECT THE DRIVE. 
:UAIT FOR DRIVE ROY 
RETURN. 



GET WORD COUNT 



HEM. AODR. 

CLEAR STATUS 

SET THE FUNCTION AND GO 

DONE' 

UAITING 

ERROR 

DRIVE READY' 
LOOP TILL DONE 
LOAD PIONT 



EOF' 
NO 

SET EOF SEEN FLAG 

UAIT FOR DRIVE TO SETTLE DOUN 

DEVICE ERROR. 



TfTV - XXDP TRTSF HXULC REflC-OhLV 

onouFB.Piz mnjpK POuTircs 
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10% 
[0% 

10S7 
10% 
1099 

,100 
,101 
.102 
,102 

,1 
il 
11 
il 
,1 
,1, 
11, 
.1 
,1 
.1 
11, 
,1 
il 
il 

iiao 

1121 
il22 

iig 

il25 
.126 

1129 
.130 
il3l 
.132 
.133 
.13M 
.135 
.13(> 
,137 

(1) 
.138 
.139 
.140 

IMl 
1142 

:i43 

11% 




000404' 
OQOMIO' 
00041&' 





000442* 
000444* 
0004%' 
QQ0454' 
0004S6' 
000462' 
000470; 

888474* 
000500' 
000504* 

m^- 

000520' 
000522' 



001774 
100422 
032777 

0227b7 
001405 

mi 

004757 
005757 



'77 
001315 
000711 



000530' 
000534' 

0005%' 



55M* 
00055b' 
0005t>2' 



004457 
004757 
015700 

m\ 

005200 
005257 
001373 
004757 
000207 




ROHOR: 
RHDRS: 



177506 

000000' 177%Q 
1774% 

0QQ012 177442 

iooloO 177430 RHDRl: 



000010 177414 RHDR2: 
000000' 

000003 000000' 



RHDR6 
RH0R4 

001000 177350 RHDR3 



000002 
000020 
OOOOOOG 



OOOOOOG 
177452 
000000' 
000020 



000012 
OOOOOOG 



PAK: 



IS: 



CLRB 

JSR 

HOV 

nov 
riov 

JSR 
HOV 
CLR 

nov 

JSR 
BIT 
BEO 

Bni 

BIT 

BEQ 

INCB 

CHP 

BEQ 

^ 
JSR 
TST 
RTS 
BIT 
BNE 
BR 



JSR 
JSR 

nov 
nov 
novB 

INC 
INC 
BNE 
JSR 
RTS 



005 

Ol-nflR-77 10:27 WWE l-S 



.1'^ 3055 



EOFSEN 

PC.HTDRV 

•-l4.,BYTCN' 

•-14 'anTuc 

S8UF.6ES 

PC.TftBSET 

TRdF.SHTBA 

ariTst 

xR0(R5).anTcn 
PCJ1T00S 

•EmoR-^ooNE,anTcn 

RHDRl 

RHDRS 

•lO^TST 

RHDR6 

EOFSEN 

•3.E0FSEN 

RH0R4 

RHDRS 

•2,9SP 

PC.PflK 

BUT 

pr 

•lOOO.flMTST 

RHDRS 

nTERl 



KEEP TRACK OF EOF'S SEEN 
SEE WHftT HAPPENS 
SET BYTE COUNT 



CLEAR INHIBIT 
DO A READ 

TEnP FIX HAKE SURE OF DONE 

DONE' 

NO 

ERROR 

EOF' 

NO 

UP COUNT OF EOF- S SEEN. 
SEEN 3' 

BR IF YES. EOT. 

NO ERRORS SKIP RETURN 
GO PACK THE BUFFER 



: BLOCK LENGTH ERROR' 

;DATA BLOCK 

;SOnE KINDA ERROR. 



R4,SAV04 

pc!trbset 
tr6f^ro 

RO 

BYTCNT 
IS 

PC,RST04 
PC 



:SAVE REGS 0-4 



;GET INP6t buffer 



GET OUTPUT BUFFER 
PACK IT IN 
POINT TO NEXT WORD 
COUNT THE BYTE 
BR IF NOT FINISHED 
RESTORE REGS O-M 



TR7<r - XXOP TR7V flOOULE REflO-OM.Y 
OnOUFB.Pia NACTAPE ROUTirCS 

UMfi 

11 

lip 

1180 
1181 
1182 
1183 
118S 
1185 
1186 
1187 
1188 

nm 
11% 

1193 
119H 
11% 

1203 
1?0H 

il8^ 

1206 
120S 
1214 
1215 
121b 
1217 
1218 
121S 

ill? 



EQ5 
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H' 



000570' 

57M' 




000810' 
00061b' 
000622' 



000640' 
0006%' 
000652' 
000656' 
000664' 
000670' 
000672' 
000676' 

W^' 

000710- 



7 

12767 
012777 
0OM767 
016777 

8^^ 

016577 
004767 
004767 
062767 
105767 
001007 
105767 
001004 

m 

000207 



CNT: 



000 
000 



:THE DRIVER 




177000 
177374 



1 7776 2 
177756 
177256 



6fiIVER 

II: 
IIS: 



000000' 177246 
177340 
177230 
000010 
177416 
177646 
001000 
000000' 



177224 



177700 2f: 



OOOOOOG 
000400 000002 



3S: 



CLRB 

nov 
nov 
nov 

JSR 

MOV 

JSR 

CLR 

MOV 

JSR 

JSR 

9DD 

TSTB 

BNE 

TSTB 

ere 

RTS 



x8«(l5).D£S 
1-512., 6YTCNT 
•-512..aMTUC 

pc.trbSet 

TRfiF.OITBfl 
PC.MtORV 

antsT 

XC0(R5),aMTCM 

PC.MTDOl 

PC PAK 

15I2..OES 

EOFSEN 

3t 

PIPFLG 
3S 

•|56.,XUC(RS) 
PC 



SCQ 0056 



SAU NO EOF YE^ 

LOAD POINTER 

25b UOROS PER RECORD 

SET WORD COUNT IN DEVICE 



SELECT THE DRIVE. 
CLEAR INHIBIT 
EXECUTE COMMAND 
UAIT FOR DONE 

UPDATE 
EOF 

BRANCH IF YES 
PIP MODE' 
YES. EXIT 
DECREMENT WC 
NOT DONE YET 



FOB 
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OnOUFB.PlS IflCTflPE ROLTI-CS c i 

i22M 
1225 
1226 
1227 
1226 
122S 
1230 



TRTy - XXOP TR7qF flOOULE READ-ONLY 
OflOUFB.PlS nftCTflPE ROUTINES 



1231 



OOOOOC' 



000000' 



000 



000000 
000002 



306 
000010 
000012 
000014 




000010' 0127Hb 

OOOOIM' 000402 

00001b' 

000016' 012746 

0QQQ22' 066516 

000026' 017616 

000032' 066716 

I 000036' 012607 



000 



000002 



OOOOOM 



000014 

000020 
000000 
OOCOOOG 



nflCYll 27(732) 



GOB 
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SEi oose 



.C5ECT flTCOffll 

TR79F riACTflPE FILE HEADER FORMAT 
FILE HEADER CONSISTS OF SEVEN (7) WORDS. 
UORD 1 THROUGH 3 NANE AND EXTENSION IN RA050 

PPN (401) 
0 



UORO 4 
UORD 5 
UORD 6 



feOFSEN: 



UORD 7 

.BYTE 

.SBTTL 

CDIR= 

CRUOs 

CSKPR= 

CCLHDs 

CUTH0= 

CUEOFs 

CRHD= 



CREUND: 

CSKIPR: 
CRDHOR: 
COMMON: 



MOV 
BR 

MOV 
BR 



MOV 

ADD 
MOV 
ADD 

MOV 



0.0 



DATE (DOS FORMAT). IF CONTIGUOUS 
FILE, BIT 15 IS SET TO 1. 

FILE SIZE IN I OF 256 UORD BLOCKS. 



dIsPATCH TO UNIQUE DEVICE ROUTINES. 



0 

2 

4 

6 

10 

12 

14 



•CRHO.-(SP) 
COMMOft 

•CSKPR,-(SP) 
COMMON 



•CRHD.-(SP) 

XDR(R5).(SP) 
a(SP).(§P) 
RELCNT.CSP) 
(SP)+,^C 



; POINT TO REUIND ROUTINE. 
;POINT TO SKIPR ROUTINE. 

; POINT TO ROHDR ROUTINE. 

:AOD AOOR OF ROUTINE TABLE. 
GET AOOR OF DESIRED ROUTINE. 
CORRECT FOR RELOCATION. 
GO TO DESIRED ROUTINE. 



HOB 



'R7<r - XXOP flOOULE REflO-ONLV 

DnOUFB.Pia LOOKUP ROUTINE 



QOOOMO' 
00004M' 
0000%' 
CXXX3S2' 
0Q005M' 

8888^ 
000066' 

ooootI* 

000100' 
000106' 
000114' 

000120; 
o88i§0' 

000132' 
000140' 
0001%' 
000154' 
000162' 
000170' 
000174' 



005765 
001403 
005765 
001002 
004767 

005265 

□01770 
016767 
016767 
004567 
000000 



016765 
016765 
0167&S 
016765 
016765 
062716 
000207 



177722 

177720 

177722 
177732 

177722 
OOOOOOG 

OOOOOOC 000012 
OOOOOOG 000006 
OOOOOOG 
000000 
OOOOOOG 



OOOOOOC 
000002G 
000004G 
000012G 
00001 4G 
000002 



177732 
177734 
177736 
177740 
177746 



rWCYll Z7i72Z) Ql-mR-77 10:27 PAGE 



.SBTTL LOOKUP ROUTINE 



LOOKUP: TST 
BEO 
TST 
Bt€ 

IS: JSR 
SEARCH: JSR 
BR 
INC 
TST 
BEQ 

nov 
nov 

JSR 

21: OPEN, 
JSR 
BR 
NOV 

nov 

MOV 

nov 
nov 
m 

4J: RTS 



XFLCNT(R5) 
IS 

XFLn00(R5) 

SEARCH 

PC,CREWNO 

PC,CROHOR 

4S 

XFLCNT(R5) 



ARCH 
$TXNW1.2S 
$BUF.2i*2 
R5,UH<Nfln 
OPEN 

RS.CMPNfln 

seArch 

BUF,XSVNAn(R5) 

BUFi2,XSVNfln*2(R5) 

BUF+4.XSVEXT(R5) 

BUF+lfi.,XSVDflT(R5) 

BUF+12.,XBKLGT(R5) 

i2,(SP) 

PC 



SE; XS9 



FILE COUNT 0' 

BR IF YES. GO REWIND. 

IN FILE nOOE' 

BR IF YES. 

REWIND TAPE. 

READ (CADER BLOCK. 

NOT FOUND. AT EOT. 

INCREHENT FILE COutlT. 

ELETED FILE' 

iR IF YES. SKIP IT. 



•.CONVERT NAnE TO ASCII. 

;COnPAR£ NAMES. 

;N0 NATCH. 

; STORE NAHE IN DOB. 

STORE EXTENSION. 
THE DATE TOO. 
FILE LENGTH ALSO. 
SET UP SUCCESS EXIT. 
DONE. RETURN. 



105 



'R^qF - XXDP ^R?V flOOULE READ-ONLY 
OnOUFB.PlS LOOKUP ROUTIfC 



000000' 
000000' DOOOK' 
000002' OOIGOC 



2310 



000000' 
OOOOOH' 




000066 



000070* 
]7M' 
57M' 
)102' 
000110' 
OOOUb' 
000124' 



OOOOOOG 

00007M' 

,7 OOOOHO- 



OOOOOOC 

177722 

OOOOOOG 

S8o§OOG 
177740 
OOOOOOG 
177740 

000103 
OOOOOOG 

000002* 



004767 
016503 
004767 
004767 
004767 
016503 
004767 
00S76S 
1003S4 
112702 
004767 
000747 
000167 

^2445 
4443 
046501 
042011 
000 
000126- 
000001 



»1ftCYli 27(732) Ol-nfW-77 10:27 PAGE 1-10 



SE;i 006C 



TRBF: 
TRSUF: 



DIRECT: 



IS: 



Q52116 054522 

044S06 047114 

042456 052130 

052101 022505 



2S: 

HEADER: 



-CSECT 

TRBUF 

.BLKU 



TRBF 

512. 

D|R^jT0RY ROUTINE 

RS.NES 

P J, LOOKUP 

PC.CRLF 

XFLCNT(R5).R3 

PC,IT0fl 

PC, TAB 

PClSTPNfll 

XSOOATCRSj.RS 

PC.DATUPK 

XSVDAT(R5) 

IS 

••C.R2 

PC.tHROUT 

1$ 

CREUND 



;WHAT KINOA TAPE 

FIND A FILE. 
BR IF NO MORE. 
CRLF 

TYPE FILE COUNT. 

DO IT. 

TAB 

TYPE FILE NAME. 
TYPE FILE DATE. 
DO IT. 

CONTIGUOUS FILE' 
BR IF NOT. 
YES. TYPE A C. 
DO IT. 

GO FOR nORE. 
REMIND TAPE 



. flSCIZ * '/.ENTRY! • < 1 1 > * FILNAM . EXT ' < 1 1 > ' DATE*/ ' 



.EVEN 
.END 



TR7V - XXOP TR7SF FIOOULE REftO-OfCV 
OnOUFB.PJS CROSS REFEREtCE TftBLE 



nftCYU 27(732) 
- USER SYflBOLS 



JOB 

Ol-flflR-77 10:27 



PAGE 



flLC = 

8L0CK 
BHOVt = 
Bl>" = 
BUSfiOR 
BYTCNT 
CCLHO s 
CDIR = 
CHROUTr 

CLRBJ-s 

as = 
crosc 

cow 
cownoM 

CPSHJR 
CREUND 
CRM) = 
CRLF = 
CRUD = 
CSKlPR 
CSKPR = 
CtCOF = 
CUTW) = 
DATUPKs 
DELAY s 
OES 



DLT 

oorc = 

EOFSEN 

ERROR 
ETR = 
fLNOTF* 
FSTHODx 

iriNOOs 
iHVCfOx 
ITOR s 
LOOKUP 
LS^BLK 

Sl« • 

nrcfi 
nTOO 

flTDOl 
nTD02 



177772 
tfffftt* G 
«»fi»« G 
*«f*ff« G 
0G0032R 
*#*«*« C 
«•#**« G 
000030R 

OOOQOO 
t««tft« G 
««t«ff« G 

iTTTbH 
0QGQ2HR 

MttM G 



000016R C 
000002R C 
000014 
ttttf G 
000002 

000012 
000010 
t«Mft« G 
#«##§§ G 

0Q056'*R 
fffftti« G 




0000H4R 
I777b2 
000200 

OOOOOOR 
« ««§§§ G 
100000 
1777M, 
ft««if G 
ifiiif G 
0Q007MR 
ffi««ff« G 
tttttit* G 
fffiM G 
000040R 
0000%R 
*§#»«§ G 

oggoTfeR 

000072R 
000274R 
000270R 
000302R 



lOOOi 
lOOOl 
lOOOi 
lOOOl 
IXII 
lOOOt 
lOOOt 
10011 

mi: 

12311 
lOOOl 
lOOOt 
lOOOt 

irait 

lOOOt 
10011 
002 12311 
002 12311 
002 1231 1 
12311 
lOOOl 
12311 
002 12311 
12311 
12311 
12311 
lOOOl 
lOOOt 
1109« 
lOOOt 
1001 
OOM 1001 



1126 
11M3* 

1231 
1231 

1231 

1231 

UMO 
1086 
10021 
12311 



1231 
11921 



iiq7t 



usii ii%t laist 





lOOlt 










lOOOl 










10001 


1073 


1115 






m, 


11951 






002 


l08Mt 
lOOOt 


11Q5» 


1120tt 


1121 




lOOOl 


1073 


1115 






lOOOt 










10001 










lOOOt 








OOM 


1231 • 
10001 










10001 


1001 


1002 






lOOOl 


1231 






002 


1001 
10011 


12311 








10001 


1231 




12051 




10061 


1065« 


Ullt 




lOOMi 


lD35i 


1072t 


1073 




1022 


1029 


1031 


10621 




1073t 


107M 


1209 






1036 


1076t 


1077 


1085 



11951 1216 1231t 



11131 1115 
lllM 



12081 



- XXDP TR7SF nOOULE HEflO-ONLY 
OnOUFB.PlS CROSS REFERCrCE TABLE 



nftCYll 27(732) 
- USER SYHBOLS 



K05 
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SE& 0Cb2 




MTORV OOOlTMfl 

UTERI 
fITST 

rrryc oodd7HR 

NXTBLKs ****** G 

OPEN = 000000 

PAK 000S24R 

Pfuvm 

PC sXC 




PIPFLGs 
PS = 

pm s 

RBKCT 
RO»€R 

REAOaCs 
RaCNTs 
RESR7 = 
REMirC 
R»CR1 



17777b 

U 

aooos2R 

0003S2R 

«««««« Q 
««««ff« G 
ff««««« Q 

000106R 
000H34R 




rhdrs 

RHDRS 
RHDRb 
RKU 
RPOM 
RPll 
RSTOM 
RSOH 
RXOl 
RO 
RI 
R2 
R3 
RM 
R5 
Rfc 

SPVOM 

5CPRCH 

SETMTO 

SHORT 

SKIPR 

SP 

SRH 

TRe 

Tfiii 



TRBSET 
TR9UF 



= «««««« u 

= c 

= ttffffftf u 
= ««««»« u 

S-/.000000 
='/.000001 
='/.000002 
sv.000003 
='/JXXI00M 
sXOOOOOS 
</.000006 
: ttftttt* G 
QOOObOR 
OOOIOOR G 

r *«ftttt U 

QOOl'jgR 
s'/-00000b 
= 177770 
r t«*»fff G 
X «««*«« U 
X «M««« U 
z «««««« U 
OOOOOOR 
0002lbR 
000002P 



002 



003 
003 



1017 
1075 

m. 

m 

lOOOl 

1125 

m\i 

lOOOl 

1110* 

10001 

lOOOl 

13SM 

lOOlt 

1002 

1000 

lOOlt 

lOOOl 

lOOOt 

lOOOt 

1002 

11151 

lllBl 

1117 

1122 

11061 

1119 

IH7H 

1612 

1732 

lOOOl 

167g 

180M 

10001 

lOOOt 

10001 

lOOOl 

lOOOt 

10001 

lOOOi 

10001 

12311 

lOlOl 

1231 

1002 

lOOOl 

10001 

lOOOl 

2010 

10551 

1055 




1231 
11371 

1012 

1013* 
1114* 

i2ie 



11051 

1001 



1056 

10171 

1116 

11281 
11261 
1123 
112Hi 



1145 



1012« 
1140« 
1231* 
1020« 
1137* 
102B« 

1137 



10251 
1124« 

1231 



1056« 

1064 

12311 



10321 1106 1206 



1063« 
1214 



10171 
1125« 



1123 



113S* 
1141» 

1021« 

1033 



123.x 



1065 
1110 



1076 
1108« 



1023* 
1127* 



1078 1082 1112* 1118 
1203* 



1128 1207* 



1002 1011 
1231 



1024* 
1138* 



1038 



1025* 
1145* 



1066 



1036* 
1146* 



1037* 
1204* 



1057* 1064* 
1206* 1209* 



1080* 1081* 
121M« 1222* 



1106* 
1231* 



1155 1198 1210 1231 



1141 

1026* 
1062 



1142* 

1027* 1030* 1032* 1033* 
1113 11% 1208 1220* 



1034* 1035 
1231* 



1072 1231* 



nil 

1138 



1139 1205 12311 
1204 



TR7SF - XXDP TR7gF flODULE R£flO-OMLv f1«CYii 27(732) 
OMOUTB.PIS CROSS REFERENCE Tflft-E — USER SYHBOLS 



TR7^ = 
TXTMI z 
UhlT 
UNPACKS 
UPftCKls 

MCOUNT 

i«ITE 

URTIOe 

XBC = 
XBKLGTs 
XBT = 

xcn = 
xco = 

XDN s 
XDR = 
XOT = 
XFLCNTr 
XFLf100= 
XLSTBKr 
XNB = 
XRD = 
XSV = 
XSVBLKr 
XSVCNTr 
XSVOflT= 
XSVEXTs 

xsvriflp= 

XSVN«f1= 
XSVTJPTr 
XSVXX = 
XWC = 
XWCTR = 
XHT = 
XXNflM ' 
XXXXX s 
XlSTBKs 
ZER = 
IBUF = 
J8UF2 = 
STPfifllr 
STXNAf1= 



oooooc 

****** G 
000022R 
•««*«« C 
****** G 
»**««« G 



QOOIbbR 
OOOOOH 

Q00Q18 
1777% 
i777SH 
000000 
0 00010 
17777b 



177722 

177720 

1777S0 

000022 

000012 

1777m 

177730 

17772b 

177740 

177738 

17772H 

177732 

177752 

1777M2 

000002 

17771b 

000014 

00002H 

«««»«« L 

17774M 

1777b0 

G 

«««««« C 

00ai2bR 



99S 
tOOOt 
lOOli 
iDOOt 
lOOOl 
lOOOl 
1001 1 
10011 
1023 
lOOOl 
lOOOl 
lOOOt 
lOOOt 
lOOOl 
10001 
lOOOl 
10001 
lOOOi 
lOOOa 
lOOOt 
10001 
10001 
10001 
lOOOl 
lOOOl 
lOOOi 
lOOOl 
lOOOi 
lOOOi 
lOOOi 
lOOOl 
lOOOi 
lOOOt 
lOOOl 
lOOOi 
lOOOt 
3 

10001 
10001 
lOOOl 
lOOOl 
lOOOt 
lOOOl 
004 12311 



1231 



10301 loeo 
11% 

1231« 



i2oe 

1231 

1231 « 
1231 

1033 1113 



1231* 
1231* 

1231« 



1028« 1062 1220* 



1109 

1231 
1231 



1231 



L05 
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SEA 00b3 



M05 



TR"9F - XXDP TR7<JF flOOULE REflO-Or<.Y HflCYll 27(732) Ol-fWR-77 10:27 PftGE 3 

0nQUrB.P12 CROSS reference table ~ riRCRO NMCS 

OKCom 2S0I 

LiCPRRH 20^1 

rfTCOW 8201 1231 

NTPRRfl 22SI 1002 

PACK SMI 

PACKl 58t 

P«W1 1701 1001 

RESREG 451 IIHS 

RESRS 481 

RESR7 511 

ROUT IN 321 

SflVREG 421 1137 

TITLE 701 lOOO 

UNPACK bSt 

JPACKl £>&• 



TRTV - XXDP TR7«JF nOOULE REflO-OMLY 
0nQUFB.PI2 CROSS REFERENCE TABLE 







112M 


1215 
1079 


1231 


m 


107M 


1077 


1083 


BGT 


1221 








BIG 


1020 


102b 






BIS 


1021 


1027 






BIT 


lOlB 


1073 


107b 


1078 


Bnl 


107S 


1117 






BNE 


1019 


1129 


1144 


1217 


BPL 


1231 








BR 


1022 


102S 


1031 


1065 


CLR 


1032 


1071 


1112 


1207 


CLRB 


1105 


1195 






CflP 


1121 








INC 


1142 


1143 


1231 




INCB 


108H 


1120 






JMP 


108b 


1231 






JSR 


1017 


1023 


1025 

A WW w 


103b 




120S 


1214 


1231 

AWW4 




NOV 


1012 


1028 


1030 

A www 


1035 




11% 


1197 


1203 


1205 


novB 


1033 


1141 


1231 




NCG 


10b3 








RTS 


1013 


1024 


1037 


1057 


sue 


1220 








SURB 


103M 








TST 


1126 


1231 






TSTB 


1216 


1218 






.RSCI2 


1231 








.BLKU 


1231 








.BYTE 


1231 








•CSECT 


1231 








.END 


2310 








.ENDC 


31 


1000 


1001 


1002 




148H 


1528 


1539 


1547 




2055 


210b 


2137 


2157 


EVEN 


1231 








.GLOBL 


1000 








. IFOF 


3 


999 


1001 


1002 

A WWW 


IFF 


1001 


1002 




. IFNDF 


10(K) 


1038 


lObb 


1155 




1852 


1881 


1950 


2049 


IFT 


1001 


1002 






.IIF 


1000 


1011 


1231 




LIST 


I 








-NPCRO 


32 


42 


45 


48 


.NLIST 


2 








.P«G£ 


1000 


1001 


1008 


1015 


.S8TTL 


1000 


1001 


1009 


101b 


.TITLE 

. aes. 


1000 


000 
001 




gooooo 






000712 






nrcoti 


00017b 


002 






TRBF 


002002 


X3 






HTDIP"' 


00012b 


004 







NQ5 

HRCYll 27(732) Ol-HftR-77 10:27 PAGE 4 
PERHRTCNT SYRBOLS SEQ OObS 

Ulb 1119 1122 1231 



1082 1115 1118 1128 

1219 1231 

1123 1130 1231 



1054 

1055 
1208 



1080 

1052 
1231 



UOb 
lObS 



1110 
1072 



1114 
1107 



1125 
1108 



1137 
1109 



1138 
1111 



1145 
1113 



120H 
1139 



120b 
1140 



1081 



1127 114b 1222 1231 



1052 
IbU 
2213 



1070 
lb22 
2280 



1179 
lb78 
2289 



1202 
lb90 
2307 



1213 
1731 
2309 



1231 
1742 



1232 
1803 



1259 
1854 



1323 
1890 



1393 
1957 



1473 
2009 



1233 

1198 
2102 



1394 1474 1529 



1210 
2131 



1231 
2153 



1255 
2207 



lbl2 

1304 
2218 



lb79 1732 



1480 
228b 



1535 
2305 



1804 
1544 



2010 
lbl8 



IbBb 1738 



51 

1223 
1231 



54 
1231 



58 



b2 



bb 



70 



170 



209 



225 



250 



820 



'R7«JF - ^XOP TR7SF FIOOULE R£flO-Or«.> flflCYil 27(732) 01- 
Df10UFB.Pl2 CROSS REFERENCE TABLE — PERH«NENT SYfBOLS 



ERRORS DETECTED: 0 

DEFAULT GL08RL5 GEfCRflTED: G 

»TR7yR^TR7yR. LST/CRF=Of10UFB.P12^EO: TR7SF/E0: RDOMLY 
RUr*-TIf<: 2 2 .3 SECOfCS 
RUH-TIf< RRTIO: 1&7/S=28,b 
CORE USED: 13K (25 PRGES) 



LMKXll V022 l-flflR-77 10:41 
•OnOUTB.BIN/T: 20000, TRDP.nflP=TRDPn, TR79FR/E 



LORD nRP 

TRRNSFER ROORESS: 000001 
LOW LiniT: 005750 
HIGH LiniT: Q2000Q 
t«*******t 
nOOLLE TRDP 



RBS.) 



cHTDIRT) 
'RUhBUF) 
'TR9F ^ 

'PESMON) 



PNTPY 




QT7r 




rwinnn 








UUUr Aw 


BCXV 


0Db230 




DRTUPK 


0083% 




FSTHOO 


00603M 




ITPrtll 


00bl52 






006660 


000126 




007006 


001000 




010006 


002002 




oiaoio 


004660 


BCLERR 


01412S 




BKREAO 


01377M 




BHOVE 


014114 




BUF 


015410 




CHROUr 


013006 




CLRBUF 


014076 




CrtPMflri 


014154 




CRLF 


012712 




OELflY 


012212 




DEVERR 


013226 




eOfCRR 


OIHOHO 




FLNOTF 


014722 




IFLPttO 


016412 




IWCMD 


012634 




I TOR 


013242 




f€S 


012652 




NXTBLK 


013760 




PIPFLC 


016533 




REAOBK 


014014 




RELCNT 


012662 




RESR5 


0142% 




RESR7 


014032 




RfSTRT 


012060 





BOE) 

1-77 10:27 Poa ^-l 



SAvOs 014050 
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